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Tiens. comme disait ma grand- 
mere, le Spectrum nouveau est 
arrive. Nouveau? Voyons voir. 
Le clavier. Ah. oui. le clavier a 
change! Mam'balaoue. qu'est-ce 
qu'rl a change! Touches en plas- 
toc semi-dur (pardon, touches de 
type QL. ca (ait mieux). noires. et 
sur lesquelles il n*y a plus de 
couleurs. Orientation Pro oblige! 
Toutes les fonclions sont nainte- 
nant au-dessus de la letti -j princi- 
pale (ou du symbole). mais il faut 
toujours jongler avec les Shift et 
les Symbol shift pour acceder a 
Tune des cinq fonclions assi- 
gnees a cerlaines touches. Une 
modification, toutefois: les guille- 
mets, point-virgule, point, virgule, 
espace. break el les fleches de 
direction sont sur des louches 
complement a part. Ce seul 
poinl ne |ustifie-t-il pas I'abandon 
de voire ordinateur actuel pour 
un Spectrum plus? Mais a 1'instar 
du premier, vous etes toujours 



oblige de taper sur quatre tou- 
ches simultanement pour acceder 
au moindre "BRIGHT" ou 
"EXP". Bon. c'est vrai. on s'habi- 
tue. II parait que Sir Clive a mis 
en oeuvre un traitemen! de texte 
memorisant 64 000 mots qu'on 
peut atleindre en pressant jus- 
qu'a soixante-sept touches en 
meme lerrps. S'habituera-t-on? 
Revenon? a noire Speclrur *. plus. 
Tout ce qui etait concu pcur le 
Spectrum 1 est compatible avec 
celui-ci. que ce soil du hard ou du 
soft. En fail, il n'y a que la carros- 
serie qui change, le moteur reste 
le meme. Exaclement I'inverse de 
la nouvelle Renault, me souffle 
un nain perche sur mon epaule. 
Alors, quel est I'argument publici- 
taire. mis a part le clavier? Eh 
bien, aux 60 000 premiers ache- 
teurs. il sera offer! oulre une cas- 
sette interactive "Je deviens une 

Suite page 16 



DES SOUS 



-Bonjour Monsieur I'inspecleur. 
comment allez-vous Monsieur 
I'inpecteur ? Asseyez-vous Mon- 
sieur I'inspecteur. Un cafe Mon- 
sieur I'inspecteur ? Un whisky ? 
Une galette ? Un bonbon ? Non 
? Vraiment ? Que nous vaut le 
plaisir de votre visite, Monsieur 
I'inspecteur ? Une gaterie ? Un 
calin ? 

Leche.leche.layot.fayot.faux der- 
che and C° . 

-Non. rien, merci. Je surs la pour 
avoir des explications sur une 
rumeur : Hebdogiciel va aug- 
menter son prix de vente. Qu'en 
est-il exaclement ? 
Incorruptible, rigueur. pete-sec, 
controleur, 

-Que cette question est inlelli- 
gente. Monsieur 1'inpecteur ! 
Oui. effectivement, i! est un lout 
pelit peu question d'augmenter 
un tout petit peu le prix de vente 
de I'hebdo. Mais a peine, un lout 
pelit peu, un chouia, un zeste. 
trois fois rien. 
Trouille, Irouille fouetle. mouille. 

-Combien ? Quand ? 
Espion, espion, amende, contra- 
vention. 

-Deux petits francs, Monsieur I'ln- 
pecleur. Deux tout pelit francs 
de rien du tout, meme pas le prix 
d'une baguette de pain, Mon- 
sieur I'inspecleur en chef. Et a 
partir du 2 novembre. Que vous 
etes beau, Monsieur I'inspecleur 
chef ! 
Frayeur.frayeur.panique.lerreur. 



-Pourquoi ? Justification ? 
Perquisition, proces-verbal. in- 
quisition. 

-Oh. pour des raisons bien sim- 
ples. Monsieur I'inspecleur divi- 
sionnaire. toul augmente. savez- 
vous. L'hebdo a maintenant plus 
dun an et, apres avoir 
commence avec 16 pages noires 
et blanches, nous sommes a 
presenl a 20 pages dont huit en 
couleurs. Et ce n'est rien par 
rapport aux prochains numeros 
qui auronl 24 pages des le 2 no- 
vembre, 4 pages de redactionnel 
sur les nouveaules el des repor- 
tages, une page pedagogique 
qui n'exislail pas dans les pre- 
miers numeros. une page de for- 
mation a I'assembleur pour plu- 
sieurs machines. Sans compter 
le papier qui a plus augmente en 
un an que le nombre de cho- 
meurs en Europe et les frais de 
pholocomposilion. de photogra- 
vure et de montage qui attei- 
gneni des sommets a cole des- 
quels I 'Himalaya est une 
fourmiliere. Et )e ne vous parle 
rjas de I'imprimeur, Monsieur 
i'inspecteur divisionnaire qeneral 
en chef, un scandale : Monsieur 
Dulac a beau elre le plus hon- 
nete et le moins cher de lous les 
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LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAOUE MOI5 
1 voyage en California pour le meilleur logiciel CHAQUE TRI 
MESTRE (Reglemenl en page inleneure) 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P. COMMODORE 64 ET VIC 20 . 
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C'est un jeu d'aventure d'ou vous devez ressortir vi- 
vant, avec le diamant sacr6. 

Eric SZYMKOW1AK 



Mode d'empioi: 

Inventaire: vous dira ce que vous Iransportez. 

Vocabulaire: donne le vocabulaire existant. 

Fin: arrete la partie. 

N. S, E, 0: vous dirige vers le Nord, Sud, Est ou Ouest. 

L'ordinateur ne prend que les 3 premieres lettres de chaque mo!. 

Exemple: PRENDRE POIGNARD - PRE POI 



T07/M05 
+16 K 



1 



E.Sz: 



3 ' Ul<21)73'77--e3 

4 • 13 ANS 

5 'POUR HEBDOGICIEL 

6 'LE U9-'84 

7 ' LE PROGRAMME F0NCT10NNE AVEC UNE 
EXTENSION 16 K 

8 'HON ADRESSE: ERIC S2YHK0UIAK 

4 IMPASSE CUYNENER 
62586 FARBUS 

9 GOSUB 62880 

16 CLEAR ,,3:DEFGRK8>=8, 255, 129,255.0,2 

15 DEFCR*<2)=129,66, 36,24,24,36, 66, 129 

26 ' DATA 

46 DIM F(32),C<32),H-.32>,TC32) 

56 FOR 1=1 TO 32*READ F< I ) , G< I ) , HU ), T< I 

):NEX7 I 

66 DATA 2. 19,8,24,3,6, 1,6. 4, 8.2.B. 6.5.3. 

7.0,6,6,4,6, 11,6.5.3.4,6,9, 15.9,7, 18,6, 1 

6,6,8 

70 DATA 12,0,0,9,6,0,6,6,0,13,10,6,6,14, 

8.12,6,6,6, 13,6,6.6.16,6, 15.18,17, 0,16,6 

,0,16,8,6,6,0.20,6,1,6,6,21,19,26,0,0.22 

. 0,21, 23, 6,22, 8. 8, 6.B, 1,0,25,9,24,0,26 

36 DATA 27,25,0,8,28,6,26.6,29,8,27,0,0, 

6.28,30,0, 29,6,31,32,36, B, B, 6,0,31,. 6 

266 ' INITIALISATION 

236 J=1:STF=6:OT=B:PPO=0:DT=B:LP=0:PH=1 

1060 ' DESSIN PIECES 

ieei console?. 24 

1062 CLSMF J=32 AND DS=1 THEN GOTO 7660 
16B3 IF J=28 AND STF = THEN GOTO I960 

1004 IF J-ll AND STF = AND 0T=1 AND DT=1 
THEN GOTO 13BB 

1005 G0SUB 3BB8 

1016 IF FCJ))6 THEN GOSUB 2B0B ELSE GOSU 

6 2286 

1626 IF G<J>>0 THEN GOSUB 4060 ELSE GOSU 

B 4206 

1024 ATTRB 1,1 

1625 IF F<J>>6 THEN LOCATE 20,2: PRI NT-N* 

1626 IF G(J)>8 THEN LOCATE 25, 4: PRI NT "E " 

1627 IF TU)>6 THEN LOCATE 13, 4:PRINT -0" 

1028 IF H(J»0 THEN LOCATE 28, 6: PRINT 'S' 

1029 ATTRB6.B 

1B3B IF T(J»0 THEN GOSUB 438B ELSE GOSU 

B 4566 

1031 IF J=ll AND OT = THEN GOSUB 6900 

1635 IF J=14 AND P3=B THEN GOSUB 6360 

1636 IF J-23 AflD PP0»6 THEN GOSUB 6880 
1837 IF J=32 THEN GOSUB 6606 

1638 IF J=15 AND P8A = 6 THEN GOSUB 6760 

1639 IF J = ll AND OT^l THEN GOSUB 21086 
1046 ' COHMANDES 

1076 C0NSOLE22,24:CLS: LOCATE 1,22:INPUT 

"COMMANDE: -;X* 

1680 IF X*=-N" AND F(J)>0 THEN J=F<J):GO' 

TDK 



i=T(. 



:G0 



*-"0" AND T(J)>8 THEN - 

1100 IF X*«*E* AND G(J))8 THEN J=G'J):GO 

Hie. IF X«="S* AND H(J)>8 THEN J=H(J):GO 

1115 IF X*=-0'AND T<J)=6 THEN GOSUB 6166 
:GOT0 1040 

1116 IF X»='N- AND F(J)=8 THEN C03UB 610 
8= GOTO 1640 

1117 IF X*="E- AND G(J)=8 THEN GOSUB 610 
8:G0T0 1040 

1113 IF X*="S- AND H(J)=6 THEN GOSUB 616 
0:GOTO 1640 

1126 IF LEFT*IXS,3)="V0C" THEN GOSUB 506 
0:GOTO1688 

1125 IF LEFTJ<.XI,3, = -INV- THEN GOSUB 640 
6:G0T0 1646 

1127 IF STP = 1 AND J=l 1 AND XSC-'MON" THE 
N PRINT"La trappe se refer*e uous «ourrs 
s de-,-«ai»...":GOTO 6B60 

1I2S IF STP = 1 AND >:*='MON- AND J=1I THE 
N J=l l:OT=0:STP=9:PRINT'D' accord. ':FDR 
I=1TO1088:NEXT:GOTO 1680 

1130 IF LEFT«<Xf,2>=-FI- THEN GOTO 6000 

1131 IF J=32 THEN Vp* = "DES" : DPS- "SOU' : GO 
TO 1145 

1135 IF J=ll AND 0T=1 THEN VP*= "DES" : OP* 

= "TP.A-:GOTO 1145 

1137 IF J=1I AND OT-8 THEN VPI= "DUV" : OP* 

="TRA-:GOTO 1145 

1146 IF J=14 AND PB=6 THEN VP*=-PPE":0 

PJ="8ID-:G0T0 1145 

1142 IF J=23 AND PP0=6 THEN Vpi=-PRE" : 
P*=-POI*:GOTO 1145 

1143 IF J=15 AND PBA = 8 THEN VP*=-PRE"!0 
P*="BAL":GOTO 1145 

i!44 gosub eieesGOTO 1040 

1145 FOR 1=1 TO LENCX*) 

1156 V*=LEFT1.XI,3' 

1155 IF v*=VP*THEN Vt'WPt 

1176 T* = HID*./;i.l,I> 

1175 IF T» = " ' AND Vf>VM THEN GOSUB 126 

6 

1 138 NEXT I 

1196 GOSUB S100:GOTO1846 

1266 REM «•».« PPE ..»*••« 

1265 QS=MID*'Xt, 1+1,3) 

1216 IF Ot=OP* THEN PPINT"D'acccr-.*.":GOS 

UB48609:FOPI=1 TO 1000:he::t:GOTO I860 

1226 GOSUB 6166:G0T0 1046 

1866 ' SERPENT 

1825 CONSOLES, 24:CL5 

1326 PRINT'Un Gros Serpent vouj bloque t 

1827 IF STP = 1 THEN GOSUB I2086:GGTO 1646 

IS36 LIHE'72,24)-<272,24 i. I 

1840 LIHE-'296,45:.,l:LIHE-'384, 

E-<72,112), i:LINE-'88,l" 

28), 1 

1358 LINE-(248,184,, 1 : L I NE- ' 232, 96 .' , 1 !LI 

NE-(256,88j, 1 I 1 1 NE- i 296. 96 ' . 1 : LI NE-' 264, 

184;, l!LINE-'264, |20., 1 

1360 LINE-(240,!36.. ]:LINE-'B8, 136..[:LI 

NE-'40, 104>, l:L!NE-' 236,49/, J 

1876 LINE-' 272, 40 • . 1 : L INE-<"72, 48 > , 1 : L I NE- 

-■ £4,32.>, HLINE-C72* 24>, 1 iPSETC248*96 ■ 

1686 PSET' 264,96,: LINE' 256, 96. -'256. 104. 

1896 LOCATE l,22:PR!NT"C0Mr!HNDE: ■;: INPUT 

KAn!895;16,CDn* 

1895 FOR 1 = 1 TO LEW' COflf f 

I960 V*=LEFTt'CGM«,3' 

1916 IF VfE'LAH" THEN Vt="LAN" 

1926 T**MJD»<COM», 1,1, 

1936 IT Tf-* ' AND V«='LAN* THEN 1956 



INE- 



, 1 



1946 NEXT I 

1945 PRINT'Lc Serpen 

ru ...-iGOTOfeBBe 

1950 IF MID»CC0n«,I+l,3)=-P0I" THEN 1970 

1960 GOTO 1945 

1970 IF PPO-0 THEN 1945 ELSE PRINT"Vot 

re POlgnard tue le serpent ..-;FOR 1=1 T 

1680(NEXT:CONSDLE0,24:CLS 

1986 IF J=28 THEN STF=l:GOTO 1060 

1998 IF J=U THEN STP=l:COSUB 12806:GOTO 

1640 

1995 END 

2686 ' NORD 

2638 FOR 1*72 TO 112 STEPS 

2846 LINEC120,I)-<144,I),1 

2850 L1NEC184, I >-(298. I), 1 

2866 NEXT 

2676 L1NE(144,72>-. 144, 112), 1 : L INE < 184, 7 

2)-<lB4,112),l 

2668 RETURN 

2288 ' NORD IMPOSSIBLE 

2236 FOR 1=72 TO 112 STEP 9 

2248 LINE<120,I)-'20e, 1 ■, 1 

2250 NEXT 

2260 RETURN 

3080 ' DESSIN RESIDENT 

3030 LINE(208,72)-C2B8,112),I 

3040 LINE<120,72>-tl28, 112>, I 

3650 LINE<8,72)-( 144, 72), l:LINE< 194,72)- 

(319,72), 1 

386B LINE<9,80>-<ie<i,80>,l 

3670 LINE(226,80)-.'.319,8B),1 

3686 LINE(245,88>-C319,38),1 

389B LINEC8,88)-<86,88), 1 

3166 LINEC8,164)-<48,164),1 

3119 LINE(280,104)-<319,164),1 

3126 LINE(366,112)-'319.112>,I 

3130 LINEO, 112)-<26, 112), 1 

3146 RETURN 

4868 'EST 

4636 FOR 1=72 TO 112STEPB 

4040 LJNE<208,I)-<249,[.16>, 1 

4650 NEXT 

4866 FOR 1=164 TO 144 STEP 8 

4070 LINE'.2B0, 1 )-i319, It-16), I 

4B8B NEXT 

4090 B0XFC246,88>-<248,128),1 

4160 B0XF<272, 1 04 > -<23B, 144), 1 

4110 RETURN 

4260 ■ EST IMPOSSIBLE 

4230 FOR 1=72 TO 112 STEP 8 

4246 LINE(283,1W319.H-43),1 

4250 NE>!T 

4260 LINEi.264.9tO-. 319-96), I 

4276 RETURN 

43B0 ' OUEST 

4330 FOR 1=72 TO 112 STEP 8 

4348 LINEU26, I>-'.33, 1*16', 1 , 

4358 NE>IT 

4368 FOP 1=104 TO 144 STEP 8 

4379 LINE'4S,D-<8, 1*16), 1 

4380 KEXT 

4396 B0XFi88,S8J-'S8, 128), 1 
4486 B0XF(49, 164)-r56, 144), I 
4410 RETURN 

4560 ' OUEST IMPOSSIBLE 
4536 FOP 1=72 TO 112 STEP 
4540 LIflE'.128,I)-(S,I + 48), 
4556 NEXT 

4566 LIHE'.8,96>-''64,96),1 
4576 RETURN 
5666 ' VOCABULAIRE 

5839 C0NS0LE9,24!CLS 

5046 PRINT'N OUVRIP PPEN 




4TUUSURT0 7 

leOElOS ATfAOUE 



^ 




DRE- 

5850 PPINT-E 

ER" 

5060 PRINT'S 

MIR" 

5670 PRINT-0 

ODUIRE* 

56SB PPINT'TRAPPE 

EPAIN" 

5690 PRINT-ARMOIRE CODE 



5100 PPINT-INVENTAIRE Fl 

BULAIRE- 

5110 PRINT'BfiLLE 



DESCENDRE LflNC 
WONTER RETE 
TAPER INTR 
POIGNARD SOUT 
CART 
VOCA 



i:.'G:i 



TAPI 



5120 PRINT-PORTE 

P- 

5130 PRINT-FUSEE 

LER* 

5140 PRINT'CEIHTURE 



ENTRER ALLE 

SIEGE BOUC 

RECOUVRIR LANC 
EH" 

5156 PRINTENLEVER DIAHANT PAOU 
ET" 

5168 PRINTCOHBINAISOH ESCALIER METT 
RE" 

5248 IF INXEY*=-' THEN 5248 
5241 RETURN 

6030 PLAY-L503A1L64D0D0L24D0D0A8L64REIL4 

3PERED0D002SI03DOL50 3AlL64D0PEREtL24PERE 

REA8L64FAL48MIM1REPED0RE- 

6646 PRINT-VouIez-vous rejouer <0^N> ?■; 

:VRO*=lNPUT*a> 

6858 IF VRO*=-0" THEN 200 

6666 CLS:PRINT*A bientot j'espere -=E 

TO 

6160 ' IMPOSSIBLE 

6130 DAR=INT<6»RND>*I 

6140 ON DAP G0SU8 6168,6176,6186,6199.62 

6150 FOR 1=1 TO 100A:NEXT:RETUPN 

cl60 PPIHT-Iepossible-:RETURN 

6176 PRINT'Soser claire fi":RETUPN 

6150 PPIHT-Ca ne "a pas non 'm-:retuRN 

6190 PPlNT-A-.ec quo i 7":RETUPN 

£266 PRINT- Je ne cosprtnd pas ...':PETUR 

&216 PPlNT-A'/ant ca .":RETUPN 

t369 ' AFFICHAGE RK-ON 

6338 LOCATE 24 , 1 7: PR INT "F" 

6348 BD>:M94,128'-'288.152), 1 

6356 B0XU94, 126>-'2B0, 128>, 1 

6366 B0::<298, 1 36 >--;21 1 , I 36), 1 

6370 RETURN 

6466 ' AFFICHAGE IUVENIA1PE 

6436 CL8«PRIKT"V0U8 TPhHSPORTEC aCTUELLE 

MENT:-; 

6446 IF PB=1 THEN PPINT"UN BIDON D'ESSEH 

CE "; 

6475 IF PBA=1 THEN PRINT "UNE BALLE "J 

iim IF PT= 1 THEN PRINT" UN PAOUET ": 

6510 IF PC=1 THEN PPJNT" UNE CARTE MAGNE 



TIQUE •; 

6515 IF PP0=1 THEN PRINT-UN POIGNARD "; 

6516 IF RC=1 THEN PR1NT"UN CODE "; 

6517 IF MC=1 THEN PPINT'UNE COMBINAISON" 

6526 FOR 1 = 1 TO 18681 NEXT 

6536 RETURN 

6666 ' ESCALIEP OELCENDANT 

6630 LINE '136, 120 )-f 176, 120 >,1:L1NE-U44 

. 152), KLINE-'. 184, 152), l = LINE-< 136,126), 

1 : L I NE < 1 68, 1 28 ) - U 68, 1 28 ), 1 

6648 LINE-(136, 152), 1 :LINE< 12&, 152>-U43 

, 132), l:LINE-<156, 132), 1 

6656 LINE (120, 152)-' 136, 136;, ItLINE-' 144 

, 136), l:LINE<112, 152)-<124, 148), [l|_INE-< 

132, 140), l:LINEi 1 12, 144>-(120, 144), 1 

6660 RETURN 

6700 * BALLE 

6730 FDR 1=1 TO 188 

6748 X=8»C0S(I)*8B 

6756 Y=8»SIN(I)H44 

6760 LINE<80, I44)-(X,Y>,1 

6776 NEXT 

6730 RETURN 

6809 ' POI CHARD 

6830 LINE(216, 152 > -'240, 152), I 

6340 LINE',232. 14&)-'232, 156), I 

6856 RETURN 

6900 ' TRAPPE 

6930 B0X(I36,168)-U6S,168>, 1 

6946 LINEC168,168)-<1S2,128),I 

6956 LINE-(192, 120), 1 

6960 LINE-(168,166),1 

6978 LIHEM36, 166) -(166, 128 ), 1 

69&0 LINE-<192, 128), 1 

6996 LINEU72, 144)'-f 177, 144), 1 
6995 LINEC144, 144)-(140, 150), 1 

6997 LINE(154,127)-<I52.132), 1 

6993 FOR 1=136 TO 168STEP2JL1NE( I, 166)-< 

1*24,120), l:NEXT 

6999 RETURN 

7888 ' BASE NIVEAU 2 

7669 C0NS0LE8,24:GOSUB 30608 

3000 ' DESSIN RESIDENT LABYRIKTHE 

8B26 B0XF(126,43)-(299,I12>,4 

8030 LINE<32,0)-( 119,43), 1 J L I HE (233, 8) -< 

203,48), 1 

3849 LINE(208,112)-<288, 160), 1 :LINEa 19, 

112)-(32,160),1 

8045 BOX(32,0)-(23S. 160), 1 

B050 RETURN 

9088 ' DROITE LABYPINTHE 

9638 LINE (272, 56) -(252,120), I ;LINE-(232, 

112), l:LINE-<232,64 ■ , 1 : L INE-<272, 56)/l : L 

INE(232, 1 12 )-<272, 112), l: RETURN 

18808 ' GAUCHE LABYRINTHE 

10830 LINE(96,112)-<56,U2),l:LINE(56, 12 

3>-<56,56>,l 

16648 LINE-<96,64), I: LINE-(96, 1 12). ULIN 

E-<56,128),l:ftETURN 

80 ' NORD 
11530 LOCATE 1S,7:PRINT" 
11540 LOCATE 13,8:PPINT" 
11558 LOCATE 10,9:PRINT" 
11560 LOCATE 18,10:PRINT' 
11578 LOCATE I8,lliPRIKT* 
11598 LOCATE 18,12:PRINT' 
115B5 B0X<144,56>-(192, 193), 1 
11596 RETURN 

12888 ' ESCALIER MONTANT 
12946 B0XF<152,46)-'168,168), 1 
12645 Y=1I2 

12850 FOR X=136 TO 98 STEP -8 
12070 B0XF<X,r)-<152,Y-3),[:BQX<X-!,Y-l) 
-<I53,Y-9>,6 
12875 Y=Y+8 
1289B KEXT 
12895 0=56 

12199 FOR U=224 TO 176 STEP -9 
12110 80XFC 152,0 ) - r U, 0*8), 1 : BOX< 1 52, 0-1 ) 
-■:u*l,0*9>,6 
12128 0=0*8 
12136 NEXT 
12146 RETURN 

13800 ' DESSIH ARMOIPE FEPnEE 
13636 B0X(I2a,83)-a92, 136), 1 :LINE-f 199, 
123),l:LINE-(199,86),l:LINE-(136,3e),l 
13846 LINE-(128,98>, l:L!NE(199, 36)-U92, 
88), 1 = LINE( 158,83)-'. 158. 136 ) , I : L I NE' 1 62, 
83 "j -C 162, 136), I = LINE (162. 1 12>-ri68, I 12), 
1 

13658 LINEC152,112)-<153,112),1 
13668 RETURN 

14688 ' DESSIN ARM, OUVEPTE 
14025 LINE( 153,89)-' 158, 135),&:L INEC 162, 
89)-(162,135),6 

14626 LINE(136,123)-(123,136>,1 
14630 B0XF(184,S8>-' 128, 136), I :BOXF< 192, 
88)-<216,136), IiBOX' 1 36, 96)-< 184, 128), 1 : 
LINE-': 192,136), 1 = L INE' 136, 96>-(I28,38', 1 

14849 LIHE<l92,89)-<184,96>,l:LINE(136, 1 
12)-<184,112),1 

14850 IF PC = 8 THEN L INE ' 152, 1 1 1 ■ -U 60, 1 1 
1 >,5: LINE' 152, 116)-' 168, 11 9), 5 

i4068 IF RC=6 AND PC-1 THEN LOCATE 18,1 

5:PfiINT-code- 

14876 IF RC=1 THEN LOCATE 18,15:PRINT" 

14080 RETURN 

15060 ' OUVERTUPE SAS 

15830 FOR 1=108 TO 59 STEP -1 

15049 LINE<144, I .-(182, I), 6 

15658 BEEPiNEXT 

15868 RETURN 

15508 ' COMMANDES '/ 

15538 C0NS0LE22.24SCLS 

15548 INPUT- C0MHANDE: "fC* 

15556 V»=LEFT».r»,3>:N=lNSTP<3,Ci.- *>+! 

:Qi=MlDt(C*,N,3) 

15560 IF LEFT*<C*,3)"*IMV THEN GOSUB 64 

66:G0T0 15568 

15566 IF LEFT*'CI.3"' , 'V0C- THEN PPINT"Un 

i force terrible vous e*peche de consult 

£•- U vocabulaire ":F0P L= I TO 2800: 

NEXTiCOTO 15568 

15579 IF LEFT*'Ct.; ="FI" THEN GOTO 6688 

15580 RETURN 
16688 * D'ACCORD. 

16838 PPlNTD'accord. " : FOR I = 1 T01 800: WE" T 

1^046 RETURN 

17669 ' AFFICHhGE COMBINAISON 

17626 LOCATE 32, 10: PRINT"):- : LOCATE 32,11 

:PRINT-7':C0L0P9 

1~03O LI HE '.256, 4 3 ■ - ■ 2t,4 . AC ■ : 1 1 NE -■ i~^ .56 

HLINE-(278,64) 

1-040 L 1NE-' 243.64 ':L1NE-'24S. 56-: LINE" 



:(256,64i- 



256,48) 

17050 S0X<254,56.'-'266,58): 

264,72) 

17955 B0XI272, 96/-' 280,104) 

17060 B0X(248,72y-<272, 184 ) : BOX'272, 72)- 

(230, 104) 

17076 B0X(24B,96;-':243. 1 04 J : BOX- 248, 164) 

-•256.128) 

17875 B0X( 248, 72) -'248, 96): BOX' 264, 164 )- 

(272,123) 

17888 BOX' 240, 120)-' 256, 1 23 > : BOX( 264, 126 

)-(288, 120)!COLOP 4:RETUPH 

18000 ' PROCESSUS 

18010 A»="*-*-* PROCESSUS EN ROUTE *-+-* 

!!fELEp6p.TAfioN'EN'zONE'22»3Uzi'p.EUSsiE" 



1^030 1=1 

18848 FOR J=l T0126 

18856 8$=Bt*MID*<At,I,l) 

18666 8*=PIGHT*(B*,9> 

18678 LOCATE 16,3,8 

18999 PRINTB* 

13188 PLAY-L1D0SI" 

18185 FOR H=l TO I86:NEXT 

18118 1=1+1 

18128 IF I=L THEN 1=11 

18138 NEXT J 

18148 PLAY-L105IS1LhSIDOSJSO- 

13150 RETURN 

19886 ' SIEGE 

19030 LINE<160,64>-<167,64),l:LINE-<I67, 

72>,l:LINE-'175,72/,l:LINE-ft75, 123), l.-L 

INE-(133, 128), l:LINE-( 133, 184 >, 1:L1NE-(1 

75,104), 1 

19040 LINE(I66,64)-(160,72>, 1: LINE-' 153, 

72),l:LINE-(I53, 123), l:LINE-(145, 120),l: 

LINE-' 145, 104), is LINE-': 153, 194), 1 

19050 LIHE(153, 128)-( 1 75, 128) , 1 : BOXF ( 1 60 

, 128>-(I68, 153), l:LIN£<144, 144>-(184, 145 

), l:LINE-(I75, 160), 1 :LINE-< 153, I60>, 1 ; L I 

«E-<144, 144), 1 

19060 RETURN 

28000 ' DESSIH DIAHANT 

20001 LINE(160,S8'-'144,56),0 

£8802 LIHE(168,33)-' 152, 64), 6 

26663 LINE(16B,38)-' 166, 64), 

28804 LINE(168,8B)-'163,64),0 

20865 LtNE(16e,88)-(176,56),8 

28866 LlNE-( 168,49,, i:LINE-< 152.48;, ULI 

NE-'144,5S),l:LJNE-( 152,64), i:LINE-'168, 

64,, [:LIHE-(176,56V.l:IF PRESENT=1 THEN 

RETURN 

20618 B0XF<144,96)-''168,136),5 

29626 FOR 1=145 TO [67 : LIKE( 1, 97 >~( I *16 

,79),6:NEXT 

£8830 FOR 1 = 97 TO 135 l LINE( I 69, I >-( 1 35, 

I-16),5:NEXT 

28635 BOX( 144.96 >-' [63, 1 36 > , 0: L INE-' 134, 

120),0:LINE-(184,S6),a:LINE-(168,96),0:L 

INE'144,96)-(169,36:',8:LlHE-(I84,a0),0 

20109 RETURN 

21908 ' DESSIH TPAPPE OUVERTE 

21820 BOX' 136, 168)-i: 163, 168), l: LINE-' 192 

,123),1:LINE-<192,120),1:LINE-(168,I60), 

1 

21038 LINE'144, 144)-<148, 158), 1 

21831 LINE'136, 160 ■-- 168, 128'. HL1NE-' 19 

2,128),1 

21646 FOP 1=136 TO 142 : LINE< I, 166)-< 1+2 

4,120),l:NEXT 

£I84£ LINE' 154, 127 -.152,132),] 

21043 LINE' 166, i;:"; ■-' 168. 144 ', 1 : LINE' 1 92 

, 136 )-< 176, 136), l: LINE-' 169. 169), 1:LINE( 

174,140)-' 169, 149),I:LIN£-(153,168:',I:L1 

NE(I66,144)-(160,144). l:LINE-(I48, I66),l 

: LINE' 156, 150)-' 152, 156:', HLIME-< 142, 166 



21850 RETURN 

22080 ' PH=18 

22830 C0NSGLE8,24!CLS 

22648 LINE<136,0)-'128, 



22866 LINE-(I92,96),i:B0X' 

28), 1 

22870 LINE' 168,0)-' 168,64) 

-' 176, 16), l:LINE-<I68, 16), 

22638 LINE(163,64)-<192,96 

■-(192, 120),l:8OX(144,24)- 

(144,48)-(I68,56),1 

22106 B0XF(8,126)-<319,166 

22116 B0X(144,56)-<!66.126 

22126 FOR 1=126 TO 56 STEP 

:.-(166,I),6:NEXT 

22138 LINE(150, 46)-' 160.40 

22146 GOSUB 15566 

22158 IF Cf=-S" THEN GOSUB 

22168 IF AT=B AND V»="ALL* 

HEN 22206 

22176 GOSUB 6188:G0T0 2214) 

22266 ' ALLER TAPIS 

22216 AT=l:GOSUB 16698IG0TI 

23688 ' PH=1 1 

23838 CONSOLE0,24:CLS 

23648 LINEd 12,8)-(1 12, 152 

)-(288, 152), 1=B0X( 136,32)- 

NE(184,80)-(192,88),1 

23858 L1NE(I35,48)-'135,56 

6)-(135,184),l 

23860 FOR 1=136 TO 192 STEI 

-CI* 128), UNEXT 

23678 GOSUB 15580 

23689 IF OP = AND V* = "OUV 
THEN 23168 

23696 GOSUB 6100:GOTO 23076 

23166 ' POPTE OUVEPTE 

231 10 0P=1 = G0SUB 16060 

23126 FOP 1=144 TO 196 STEP 

-■I. 118),6!NEXT 

23130 GOSUB 15580 

23146 IF EF = 8 AND '. 

THEN 23266 

23156 GOSUB 6J08SGOTO 23136 

23286 ' ENTREP 

23210 EF=j:GOSUfi 16806 

23220 GOTO 24080 

24000 ' PH=!2 

24838 CONSOLES, 24:CLS 



1 :LINE-( 136, 1 
1!LINE-<1I2,9 
12,96)-<128,1 
l:LINE' 163,8) 



16680IGOTO 39 
AND Ot=-TAP'T 



.l:LINE'135,9 
ElLINE<I*3fi> 

AND 0*='POR- 



2!LINEiI,34 ■ 
hND Of'FUS- 



Suite page 18 



CHEVALIER LANCELOT C ANON 



Vous, CHEVALIER LANCELOT, etes mis au defi de Mode d'empioi: 

traverser tout le chateau du roi sans encombre. Mais I petit saut, — avant, — arriere. * — grand saut. 

attention, boulets et gardes, vous barrent le chemin A la fin du lislin 9. v ous trouverez un tableau dormant la liste avec 

les CHRS et leurs caracteres correspondants. 

Si vous ne possedez que la version 8K. remplacez tous les CHRS 
(X) par "GRAPH + la louche correspondent au CHRS ". 
Ivan HARY Le programme est en deux parlies. 



CHEVALIFR 
LANCELOT 

CANON X07 



10 Cis:l ncATF i 

17 CONSOLF 1 , 1 



11 CONSOLE 0,4 

16 LOCATE 0,1:PRINT' 

LANCELOT'! 
IS FOR 1-1 to 3o:befp 




CHEVALIER 
, 1:NFXT:BEFP o,?o 
CHARGEMFNT DES 



70 LOCATF O.IIPRINT* 

CARACTERES . 
10 DATA 232,37,37,23?, 136, 136, 237, 32, 257 
732, 136 
240,80,90,210, 16,60,32 



, 136, 136,232,32,32 
47 DATA 241 
,32,60,32,32,60,32 
44 DATA 136,252,32 
,240, 72,68, 232, 16, 



32,732, 136, 136,232, 16 

6,732 

46 DATA 0,0,237,8,732,37,37,252,37,60,22 
4,0,252,64,64,737 

36 , 232 ,37,37, 252 ,0,0 



DATA 37,737, 136 

128, 197, 178, 152; 
50 DATA 240,16,16,240,80,84,244 

228,232,252,232, 
7 DATA IBS, 160, 160, 188, 16 
64,36, 232 , 8 , 232 ,37,32, 232 
4 DATA 0,0,0,0,0 

28, 128, 128, 132 

DATA 744,20, 16 

228, 124, 124, 12' 

DATA 36,36,232,0,232,32 

64,0,0, 

DATA 0,0,0,0, 46 

, 128, 192, 128 

DATA 0,24,74,741 



B2 



20,' 



.24 



DATA O 
97, 178 
DATA O 
192, 128 



232, 1 

60, 188, 160, 

I, 128, 17S, 1? 

240,80,80,740, 16,732, 1 

32,732,0,64,2 

48,0,64,232,6 

76,132,0,0,0, 

78,64,37,0,19 

0,0,774,748,1 

72,232,112,0,132,20 



,188,48 

78,774, 
88,216 

8,16,0,0 



DATA 0,0,0,0 
232, 120,48,48, 
DATA 96,96, 196,244,200,40, 16,0,48,48 
100,20,12,0 
74 DATA 24,24,48,60,48,8,4,0,0,4 
, 12,0,0 

76 DATA 32,160,160,32,224,32,160 
104,200,248, 196,36,20,4 

78 DATA 36,32,100,124,96,16,8,0,12,12,24 
,28,24, 12,4,0 

BO DATA 4,4,12,12,12,4,0,0,128,128,64,22 
4, 16,200,64,0,0,0, 128, 172,732, 11: 
1,0,0,0 



32,37 

6 
8,4,4 



87 DATA 0,0,O, 
8,732,32,32,232 
64 DATA 32,32, 
,32, 16, 16, 16, 
86 DATA 8,8,8 

88 DATA O,0,O 
6, 16, 16,8,8 
90 DATA 4,4,0 
4,32,0 
9? DATA 32, 
32, 16,8,0,0 
94 DATA 

64, 128, 128, 126, 1 78 
96 DATA 64 



98 DATA 

0,0,0,0 

DATA 
64, 176 
DATA 4 



0,0,0 



128, 177,232. 
32,32,32, 



FOR I- 

RFAD A 



A18) 

FONT* 

A<7> , 
18 NEXT 
70 FFFP 3O,70:CLS 



77 CONSOLF 



0,O,0,0 
16, 16,8 
37,32,37 
78,0,0,0 
32,32,32,64 
6,0,16 



A(2) ,A(3 



774 TO 735 



4(21 



232, 
32,32,32 



LOCATF 0,OM 
ATE 0,3:PRII 



32, 1 



R, 126,64,6 
128,64,64, 
7,64,64,64 
,0,0,0,0,4 
4, 128, 128, 
D, 16,32,32 



74 CONSOLF 0,4 

2A LOCATE O.DPRINT" ENTRE7 LF DEUX1EME 

PROGRAHME DE JEU...M 
78 IF INKEYWTHEN 12B 
30 CLS 



TO IO:a»i 



SOL AVFC TROUS- 



36 A*(?l-A*(2 
HR*il29) INEXT 
40 A*(?)-A*(? 
136) +CHR*(I32 



FOR : 



TO 



R*l 134) *CHR» 

44 next:a»<2 

46 ■ -SOLDATS 
48 FOR 1-1 TO 
371 :next 

50 A* 13) -A* (3 

37 FOR I-I TO 

R*(139> *CHR*I 
34 NEXT: A* ! 3)' 
CHRSC 136) «CHR 
36 FOR 1-1 TO 
R*<141 ) *CHR»( 



MID*fA*l 1) 



64 A* 14) -i 
CHR»( 133) ■ 
64 BI*I1)-" 

86 Bl«(2>-' 
R*!252)+' • 

87 Bl«(31-" 
R*(249>+- ' 

88 B1*(4I-- 

90 Bl*(3)-- 

92 B1«I6)-* 

94 B1«I7)-- 

HR*<241) 

96 B1»I81-' 

HR*(244) 

96 81*19) -■ 

OO B2»(2)-" 
HR*I73?)* - • 

02 B?*(3)-- 
HR«1249)t" ' 

04 B?*(4)-" 
HR*(248)t* ' 

06 H7«(5)-* 

HR*!?7B>f ■ 

)6 87*16) -■ 

O B7*(7)-" 

IR*(241> 
2 B?*(6)-' 
HR*(244) 

fl?*(9)-* 

HR*I733) 

7(1 CONSOLF O 



*CHR*U30> 

♦CHR*(128> 

4: A*(?1-A*(7 
33>«r.HR*<132 
A*(?l tCHRfi i: 

:A*I3)»A*(3 

*»CHR* 

: A* (3) -AS (3 



1 TO 



CHRSI 



40) *CHR* 



♦CHR*( 178 

3) -A* (3: 
HR* (137! 

+CHR*< 136) *CHR*(132 



CHR*( 13 

RIGHT*<A«(1 ) 

CHR*(7S4 



CHR*I251 

CHR*(23I 

CHR*(?47 

CHR*(?n7 

CHR*(23B 

CHR*(?47 

CHR»(247 

CHRS (743 
♦CHR*(23 

+ CHR(.:731 ) 

*CHR*t247) 

»CHRS(237) 

♦CHR»(23B) 
♦CHR*(242) 
«-CHR*<747> 
♦CHR*<?43> 



( 1 1 *CHR*( 
(1 t*CHR*( 

29) IFOR I 
' ■•CMR«( 
CHRS (1791 I 

CHRS (133) *CH 

I tCHR«(I321 

"*CHR*I1 

78) +CHR*(129 

CHR*(138) tCH 

*(129) ♦ 



1301 ♦• 

»STRING*(3, 134) 
*CHR»I235) + • 

+CHR«(253)'C 
♦CHR*(230) »C 
*CHR*I?4B) + 
♦CHR*I237> ♦ 
*CHR*(239> + 
•CHR*I240) * 
♦CHR*(243) * 



CKR*(225>*' 
CHRSI226) *i 
CHR*I?77) n 
■*CHR»(229) 
-♦CHR*(230> 
-*CHR*(73I1 
■+CHR*(?3?1 



i: LOCATF o,: 
I : CONSOLE 

77 LOCATE O, O: PRINT * ---------- 

■ I ; LOCATE 3, i:print-chfvalier- 

74 LOCATE 5,2:PRINT*LANCEL0T. • 
26 FOR 1-1 TO 800:NEXT 

78 '-TABLEAU 1- 
30 GOSUB 9000 

37 Xlll-19 

34 IF N>0 THFN 
36 IF N>1 THEN 

38 IF N>7 THFN 

40 IF N>3 THEN 



Y<1 



7 FLSF X(7)-- 
i ELSE X(3)--l 

NT(4#RND(0> I t 



3*RND(0) 1 *10 
(71--1 

IF N>4 'THEN Y(3)-INTI3*RND(0) I *3 E 
31--1 

if (t*7) /4-int1 (t*7i /4) then x(3: 

)--i:goto 190 

console 0,1: locate 0,3:print right* 

1 ,20) I 

LOCATE 0,7:PRINT LEFT*(A*( 1) ,i 
NSOLE 0,4 

LOCATE 0,1 SPRINT CHR*U50)I 
150 GOSUB 10000: IF M>0 THFN 182 
137 GOSUB 1O1001IF M >0 THFN 187 
1S4 A-STICK(O) 

IF A-3 THEN GOSUB 17700:G0T0 

IF AOS THEN 170 
160 GOSUB 17000: IF M>0 THEN 187 
162 GOSUB 10000: IF M>0 THEN 187 
164 GOTO 174 

I A-l OR A-7 THEN 177 ELSE 1! 
172 GOSUB 12000: IF M>0 THEN 182 



-) 



CC 



74 GOSUB 10000: IF 

76 GOSUB 10100: IF 

78 G0SUB_ 12100 

60 IF M-0 THEN 150 

97 IF M-l THEN V-V 

B4 T-T*l:S-S*10 

86 '-TABLEAU ?- 



i:goto 130 



87 IF IT»1) 



-HMTI 



68 GOTO 130 

90 CONSOLE 0,l:LOCATE 0,3:PRINT I 
AS(2) ,20) I 

LOCATE 0,2:PRINT LEFT* ( A* (7) , : 
NSOLE 0,4 

GOTO 148 
'-TABLEAU 3- 
GOSUB 9000 
200 IF N>0 THEN X ( I > -INT ( 3*RND (01 
SE XU) — 1 

20? IF N>1 THEN Y I 1 ) -INT I5*RND (0 I 
E YI11--1 
204 IF N>2 THEN ) 
206 IF N>3 THEN ' 
SE Y121--1 
208 IF N>4 THEN ' 
E Y(3)--l 
210 X131--1 

212 CONSOLE O , 1 : LOCATE 0,3:PRINT RIGHT*! 
A* (3) ,20) ; 

214 LOCATE 0,2:PRINT MINIMIS) ,21,20) 1 
216 LOCATE 0,1:PRINT LEFT* 



(3*RNDI0) 



9040 I 



I2.2IPRINT 



/IES1 



r USING" I 



riCLS _ 

X07 



9042 IF VOO THEN 9030 

9044 LOCATE O, 1 : PRINT ■ UDULEZ VOUS REJOI 

R?" I 1 INITH1, *KBD: • 

9046 A*-INKEY*:IF A*-** THEN 9046 

9048 IF A*--0- THEN RUN ELSE END 

9030 M-0:X"0 

9031 FOR I-1T0 1000:NEXT:CLS 
9052 RETURN 

0000 ' -DEPLACEMENT 

0002 •- BOULETS 

0003 '- SIMPLES 

0004 FOR 1-1 TO 3 

0006 IF X<I)<0 THEN 10032 

0007 C-SCREENIXII) , 1 ) : IF C-131 THEN 
O 

OOOB LOCATE 



C-SCREEN(X(I>,1) 
IF C-32 THEN 10030 
IF C-137 OR C-143 THEN X ( I ) -X 
10012 

IF C-130 THEN 10024 
0020 LOCATE X(I),l:PRINT CHR»I133)I 



0027 I 



c.tf : 



-1 , LlPRIl 



CHR« 



•II48J 1 :GOTO 10028 

0024 LOCATE XU),l:PRINT 

0026 LOCATE X(U,l:PRINT 

00?8 M-i:GOTO 10034 

0030 LOCATE X(I),l:PRINT 

0037 NEXT 1 

nf)34 RETURN 

00 ' -DEPLACEMENT - 

02 ' - FLECHES - 

04 FOR I-I TO 3 

06 IF YtlXO THEN 10126 

08 LOCATE YII),0:PRINT 

10 IF Ylll-O THEN Y(ll- 



10124 



42 THEN 10120 



26 NEXT 



9 ELSE Y( 



PRINT CHR*( 149) | : 
PRINT CHR*(147) t 
PRINT CHR*( 147) I 



28 RETURN 

2000 '-DEBUT SAUT- 

2002 '- IMONTEE) - 

2004 IF X-INT1X) THEH P- 1 ELSE P-2 

7006 LOCATE INT (X) , 1 : PRINT STRING*(P,32 

2008 IF A- I THEN X-X».3 

IF A-2 THEN X-Xtl-3 

2 IF X>19 THEN X-19 

4 C-SCREENUNT (X+.S) ,0) 

6 IF C-32 THEN 12042 

8 IF C<>147 THEN 12024 
7070 LOCATE INT ( X- . 3) , 0: PRINT ■ *tCHR*( 
36) I 
7077 X-INT (Xt.3) : GOTO 1 202B 



2024 LOCATE INT (X- . 3) ,0: PR 

CHR*(133) I 
2026 H-l:OOTO 12030 
7028 LOCATE X,0:PRINT 
2030 LOCATE X, I: PRINT CHRi 
703? C-SCHEFNIX,?) 
2034 IF C<>32 THEN 12026 
7036 LOCATE X.11PRINT • • 
2036 PRINT CHR*(234 
HR«(233) I 

7040 LOCATE X,3:PRINT CHR' 
2026 
2042 IF X-INT 1X1 THEN 
2044 LOCATE X-.3,0:PR: 
132)i:G0T0 12048 
2046 LOCATE X,0:PRINT CHR*I130)I 



CHR*(I34> 



136) I 



LOCA 



236) I 1GOT0 



HR*(151 ) ICHR* 



2046 IF X-19 TH 

2050 RETURN 

00 *- FIN SAUT - 

02 '- (DESCENTE) - 

04 IF X-INT IX) THEN P-l ELSE P-2 

06 LOCATE INTIX) ,0:PRINT STRIN0*1P,32 



IF A-l THEN X-X*.3 
IF A-2 THEN X-X*t .! 
IF X>19 THEN X-19 
C-SCREEN(INT(X..3) , 
IF C-32 THEN 12130 
IF C0137 THEN I2i: 
20 LOCATE INT(X-.3),1: 
CHR*( 135) | 

22 H-l:GOTO 12192 

24 IF COI43 THEN 1211 

26 LOCATE INT(X*.5),0: 



PRINT CHR*( 134) 



120 



-2:s-S»ioo: 



3)1 

42 LOCATE 
8) i :goto 
44 LOCATE 
46 LOCATE 
46 M-l : GOTO 
30 IF X-INT 
32 LOCATE X- 
2) i: GOTO 12 
34 LOCATE X 
36 C-SCREEN 



36 IF 

60 LOCATE 



>32 



72 IF X< > 



74 LOCAT 

76 X-X*l:GO' 



78 IF C< 



IOTO 17197 
HEN 12139 ELSE 32B 
1 THEN 12144 
5,1: PRINT CHR*I 131 I ICHR* 

5,1: PRINT CHR*I136I ICHR* 



CHR*(13U ICHR* 



INT CHR*<130) I 



HEN 



12164 

l :prin' 



3) :GOTO 12036 

THEN 12170 
IT(X) , l;PRINT ■ 
5):G0T0 12036 
70 IF CO130 THEN 12178 

T-HEN 12192 



12036 



3B OR C( 



12184 



:) THEN 12192 

PRINT CHR*( 136) I ;H-l:GO 

122192 

84 IF CO140 THEN 12190 

86 LOCATE INT (X) , 1 : PRINT CHRSI143HCH 

1361 I 

86 M-l 

90 IF X-19 THEN M-2 

92 RETURN 
2200 '-ALLER A- 
2202 '-DRDITE - 
2204 IF X-INTIX) THEN P-: 



2206 LOCATE I 

I 

2208 X-X*.3 

2210 GOTO 12 

271? RFTURN 



ELSE P-? 
PRINT STRING*!! 









3000 


CHR* 


GRPH 


3004 


126 
129 


' 


3007 


130 


1 


300B 


131 


? 


3009 


13? 


t 


3010 


133 


] 


3011 


136 


A 


3012 


137 


N 


3013 


136 





3014 


139 





3013 


144 


2 


3016 


143 


3 


3017 


146 


4 


3016 


147 


3 


3019 


146 


U 


3020 


149 


V 


3021 


130 


Y 


3022 


131 


T 


3023 


192 


x 


3024 


133 


E 


3073 


134 





3029 
3030 
3031 
3032 
3034 
303* 
303B 
3039 
3040 
3042 
3044 



3052 
3034 
3056 
3038 
3060 



224 


7 


725 


Z 


226 


C 


229 


J 


231 


• 


233 


1 


236 


6 


237 


B 


239 


D 


240 




24 1 


9 


24? 


8 


244 


L 


245 


M 


246 


R 


247 


P 


249 


1 


231 


U 


252 




233 


F 


234 


M 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM- MATERIEL UTILISE : 

PRENOM : CONSOLE !..... 

ADRESSE: PERIPHERIQUES : 

REGLEMENT JOINT: □ CHEQUE DCCP 



SUPER YAHTZEE 



SPECTRUM 



Vous avez perdu vos des? Votre piste est dans un etat 
lamentable? Rien de grave, tant que votre Spectrum 
marche: le voila qui va remplacer ces accessoires, 
bons pour le placard!! 
Mode d'emploi dans le programme. 

Elise et Pierre CARNICELLI 

Le premier programme sert a la redefinition des UDG et a !a pre- 
sentation. Le deuxieme contient le programme principal. 



25. . . INITIALISATION UARIA6LE3 
DU PROGRAMME 

40. . . INITIALISATION 

220. . . let' JOUEUR 

250. . .JOUEUR i = J 

330... JOUEUR EN COURS 
3000. . .FIN 

45O0... PRIME DE YAHTZEE 
5000. . .CHOIX ET SCOPE 
5200. . .SCOPE 
5500. . .ETAT DU JEU 
6000. . .NOU'JELLE COLONNE 
6500.. .NOUUELLE MANCHE 
7000... JEU iLANCEP C' UN DE) 
7500. . .AFFICHAGE JOUEUR 
300O. . .AFFICMftSE TABLEAU 
3500... DATA TABLEAU 

9100. . .snuuEOBRoe pmptie 

9300. . .CMAPGEMENT D'UNE PART IE 
950O...REGLE DU JEU 
9790. . .ler V 



1 REM *********************** 

2 REM * SUPER YAHTZEE PAR 4 

3 REM * E et P CARNICELLI * 

* © 1934 * 

4 REM *********************** 
10 GO SUB 8000 

20 PRINT AT 21,0, PAPER 6, INK 
2. FLASH 1; "CHARGEMENT EN COURS 



30 BRIGHT 

3000 rem a 

3010 RESTD 

TO U5R -(■*/ 

3020 READ a : POKE f ,3 

S030 NEXT f 
3040 REM 

8041 DATA BIN 00000000 

3042 DATA BIN 00000000 

3043 DATA BIN 00000000 

3044 DATA SIN 00011000 
.3045 DATA BIN 00011000 
3046 DATA BIN 00000000 
8047 DATA BIN 00000000 
S04S DATA BIN 00000000 
6050 REM 

3051 DATA BIN 00000000 

3052 DATA BIN 01100000 

3053 DATA BIN 01100000 

3054 DATA BIN 00000000 
6055 DATA BIN 00000000 

3055 DATA. BIN 00000110 
3057 DATA BIN 00000110 
3053 DATA BIN 00000000 
3030 REM 
S061 DATA BIN 
3062 DATA BIN 
8063 DATA BIN 
6064 DATA BIN 00011000 
3065 DATA BIN 00011000 
S06B DATA BIN 00000000 
6067 DATA 8IN 00000011 
6063 DATA BIN 00000011 
3070 REM 

8071 DATA BIN 11000011 

3072 DATA BIN 11000011 

8073 DATA BIN 00000000 

3074 OATA BIN 00000000 

8075 DATA BIN 00000000 

3076 DATA BIN 00000000 

8077 DATA BIN 11000011 

3078 DATA BIN 11000011 
8080 REM 

3081 DATA BIN 11000011 

8082 DATA BIN 11000011 

9083 DATA BIN 00000000 

8084 DATA SIN 00011000 

3085 DATA BIN 00011000 

3086 DATA BIN 00000000 

3087 DATA BIN 11000011 

3088 DATA BIN 11000011 

3090 REM 

3091 DATA BIN 11000011 

3092 DATA BIN 11000011 
8093 DATA SIN 00000000 
3094 DATA BIN 11000011 
6095 DATA BIN 11000011 

3096 DATA BIN 00000000 

3097 DATA BIN 11000011 

3098 DATA ■ 

3000 REM (1 

9010 BORDE 

M TRIPLE 

9020 INK 2 BRIGHT 1: P 

; DRAU 10,0: DRAU 0,-3: 

0: DRAU 0,-3: DRAU 7,0; 



l<hmu *i,-w>. L^iinw f 

DRAU -10,0: DRAU 



-7,0. DRAU 0,9 

DRAU 3,0: DRAU 

DRAU 0, 12: Dftft 

DRAU -10,0: D 



DRAU 0,3: DRAU 
9030 PLOT 15, 130 
0,-12 DRAU 4,0' 
U 3,0 DRAU 0,-15 
RAU 0,15 

9040 PLOT 25,130: DRAU 10,0: DRA 
U 0,-8: DRAU -6,0 DRAU 0,-7: DR 
AU -4,0: DRAU 0,15 CIRCLE 30,12 
6,2 

9050 PLOT 35,130: DRAU 10,0 DRA 
U 0,-3: DRAU -6,0: DRAU 0,-3' DR 
AU 3,0: DRAU 0,-3: DRAU -3,0: DR 
AU 0,-3: DRAU 6,0 DRAU 0,-3' DR 
AU -10,0: DRAU 0,15 

9060 PLOT 45,130: DRAU 10,0: ORA 
U 0,-8 DRAU -3,0 DRAU 3,-7: OR 
AU -3,0 DRAU -4.4 DRAU 0,-4 D 

. DRAU 0,16. CIRCLE 50,1 

REM YAHTZEE 
9110 PLOT 20,100 DRAU 5,0. DRAU 

5,-10' DRAU 5,10 DRAU 5,0. DRA 
U -15,-30: DRAU -5,0 DPAU 8,16: 

DRAU -6,14 
4120 PLOT 50,70 DRAU 3,30: DRAU 

4,0: DPAU 3,-30- DRAU -5,0. DRA 
U -3,10: DRAU -4,0 DRAU -3,-10 



AAU -3,0 
25,2 
9100 INK 




DRAU -5,0: CIRCLE 60,35,2 
9130 PLOT 60,100: DRAU 5,0: DRAU 

0,-12- DRAU 10,0: DRAU 0,12: DR 
AU 5,0: DRRU 0,-30: DRAU -5,0: D 
RAU 0,12: DRAU -10,0: DRAU 0,-12 
: DRAU -5,0: DPAU 0,30 
9140 PLOT 110,100: DRAU 20,0: DR 
AU 0,-5: DRAU -7,0: DRAU 0,-25: 
DRAU -6,0: DRAU 0,25: DRAU -7,0: 

DRAU 0,5 
9150 PLOT 140,100: DRAU 20,0: DR 
AU -12,-25: DRAU 12,0: DRAU 0,-5 
: DRAU -20,0: DRAU 12,25: DRAU - 
12,0: DRAU 0,5 

9160 FOR i =0 TO 1: PLOT 170t(i*3 
01,100: DRAU 20,0: DRAU 0,-5: DR 
AU -15,0: DRAU 0,-7: DRAU 6,0: D 
RAU 0,-6: DRAU -6,0: DRAU 0,-7: 
DRAU 15,0: DRAU 0,-5: DRAU -20,0 
: DRAU 0,30: NEXT i 

9165 FOR F=0 TO 4: PRINT AT 3,20 
+ 2*F; PAPER 7; INK 0;"V; NEXT F 
9170 REM © 

9180 INK 6: PRINT AT 15,13;"© 1 
984", AT 17, 15; "ELise et Pierre" 
9200 RETURN 
9999 SAUE "YAHTZEE - ' LINE 1 



10 REM 
IS REM 
20 REM 

25 REM : 

26 POKE 23609" 

27 LET pec=0 
30 LET rin=3000: LET ipa=3S0: 

LET rje=9500: LET cpa=9330: LET 
SP3=9100: LET ata=3000: LET ajO = 
7500: LET g€U=7000: LET nco=6000 
: LET' nraa=B500: LET eje=S500: LE 
T Cho=5000: LET pya=4500 

35 LET J.^ J ^S S^^jn^^ . t ''- =5200 

NEXT f : CLS 
50 LET 2=0: PRINT BRIGHT 0,AT 
10,0; PAPER 5; INK 2; FLASH 1; "U 
ouLez-vous La regie du jeu co/n ) " 
70 LET Z=Z+1: IF INKEYf, = "0" OR 
INKEY$="0" THEN GO 5UB rje: GO 
TO 100 

30 IF INKEY5 = "N" OR INKEY$ = 'Ti" 
THEN GO TO 100 
85 IF INT lz/ 
P .1,-10: BEEP 



I =Z/40 THEN BEE 



.. . IF INKEY»< >"N 
n" OR INKEY$o"0" 

THEN GO TO 70 

100 BEEP .05,40: 
EEP .05,40: PAPER 

110LET Z=0: INK 0: PRINT AT 10 
,0; PAPER 0; INK 7; BRIGHT l;"Av 
ez-»/ous une partie en cours 7 "; 
AT 12, 12; " (o/n) " 
120 LET Z=Z+1: IF INKEYf, = "0" OR 
INKEY*»"0" THEN GO SUB Cpa: GO 



TO ipa 



INKEYS=" 



130 IF INKEY» = "N 

THEN GO TO 150 

135 IF INT lz/40i=Z/40 THEN 
P .1,-10: BEEP .5,5 

140 IF INKEY$o"N" OR INKEY$ 
n" OR INKEY*o"0" OP INKEYto 

THEN GO TO 120 

150 BEEP .05,40: CLS 

160 FOR f=0 TO 1: PRINT AT 
INK 
APER 



SmfoCH&Mtai" 



NEXT 



170 FOR f=0 TO 2: PRINT AT 9 + f, 
8; BRIGHT l; FLASH 1, INK 5; PAP 
ER 6;"V;AT 9+/,24;"V': NEXT f 

180 PRINT AT 10,10; INUERSE 1, 
BRIGHT 1; "SUPER YAHTZEE" 

190 INPUT BRIGHT 1; INK 7; RAPE 
R 0;"Norobre de joueurs ? ( l a aj " 

' 195 IF njB0 OR nj>4 THEN BEEP . 
05 , -10 BEEP .05,0- BEEP .05 , 10: 
GO'TO 190 
— DIM J S CO J j 10> . DIM Itnj): D 



LET gl=INT 



240 REM ******** 

250 CLS : PRINT i 
5H 1, n j, FLASH 0; 
260 FOR f = l TO n 
270 BEEP .05,40: 
INT AT 21 ,0; INK ' 

280 INPUT j*(f> 
290 PRINT AT 21, i 
295 FOR h=l TO 3: 
BEEP .05,0: BEEP 
PRINT AT 2+4*F ,i 

k f *3, r ; ink 0; " > 

J»(f) 



BEEP . 
.05, 10. 
. "joueu 



Z=0: PRINT 80, " 



BRIGHT l; INK 7, PAPER 0;"Est-ce 

j y s t e 7 ( " "" 

320 LET Z _ 

INKEY»="o" THEN 
EEP .05,0 BEEP 



IF INKEY$="C" OR 
6EEP .05,-10: B 
05, 10: GO TO 35 



330 IF INKEV$="n" OR INKEY»a"N 

THEN BEEP .05,-10: BEEP .05,0: 
8EEP .05,10: GO TO 150 

335 IF INT iz/40)=Z/40 THEN BE 
P . 1 , -10: BEEP .5,5 

340 IF INKEY*< >"fV OR INKEYSO 
N" OR INK£Y*o"0" OR INKEY«O"0 

THEN GO TO 320 

350 REM ********************** 

360 DIM dtiSJ DIM U<6): DIM S 
V (n j) : DIM o in j *" 



n j , 1_. 

370 LET 

375 GO 5 

380 REM 

390 LET 
LET jOal 

400 REM ***** 

410 LET rate- 
ET ni«nUl' 

nco 

415 GO SUB 



jO = jl 



400 



'J. 1 

HEN 



420 FOR d=l TO 5 GO SUB j€U N 
EXT d 

430 FOR j=I TO 2 

440 LET Z=0: PRINT E0, BRIGHT 1 
. PAPER 0; INK 7," voulez-vous 
re Lancer 7 co/n) 

450 LET 1=1+1: IF INKEYS="0 OR 

INKEY$="o" THEN SEEP .05,40: GO 

TO 430 

460 IF INKEYJ="n" OR INKEYS="N" 

THEN SEEP .05,-10: BEEP .05,0: 
BEEP .05,10: LET j =2 : GO TO 550 

465 IF INT (Z/100) =Z^100 THEN B 
EEP . 1, -10: BEEP .5,5 

470 IF INKEYJo'Ti" OR INKEY$<>" 
N" OR INKEY$o"0" OR INKEYSO"0" 

THEN GO TO 450 

433 INPUT PAPER 0: BRIGHT 1;; I 
NK 7; "LesqueLS 7 ( 1-2 -3 -4-5) " ; f S 

490 IF LEN rs>5 THEN GO TO 430 

500 FOR f=l TO LEN r$: IF UAL I 
rj C f ) ) =0 OR UAL US ( f ) ) >5 THEN G 
O TO 480 

505 NEXT f 

510 FOR f=l TO LEN rt: FOR H=l 
TO LEN ft 

520 IF FOR AND r$(M=r$U> THE 
N GO TO 480 

530 NEXT K: NEXT / 

540 FOR h = l TO LEN r$: LET d =UA 
L tr$th)): GO SUB jeu: NEXT h 

550 BEEP .05,-10: BEEP .05,0: 8 
EEP .05,10: NEXT j 

560 INPUT INK 7; BRIGHT 1; PAPE 

R 0;" uotre choix 7 tl a 13) ", 

570 IF X)13 OR X<=0 THEN BEEP . 
1, -40: GO TO 560 

580 IF oljO,x) THEN BEEP .1,-40 
: GO TO 560 

590 GO SUB aje 

500 GO SUB chO 

610 GO SUB ajo 

620 PRINT AT 20,0; PAPER 0; INK 

7;"Appuyez sur une touche s.u.P 
. • ! ": PAUSE 464 

625 PRINT AT 20,0; PAPER 4, SRI 
GHT 9}" t , 

630 BEEP .05,10*jO 

640 GO TO jfi c 
3000 REM aHS 

3010 PRPER2: BORDER 2: CLS 
3020 PRINT AT 0,10; PAPER 0; INK 

5; FLASH l; "TOTAL FINAL" 
3030 FOR f=l TO nj 

3040 PRINT '-'• INK f +3, J*(f ) , " 
= = > "; t t f ) 

3050 BEEP . 05,10* f: NEXT f 
3050 PAUSE 10: BEEP .5,0: LET Z= 
0: PRINT B0; PAPER O; INK 7 ; " U 
ouiez-vous rejouer ? (o/n> 
3073 LET Z=Z+1: IF INKEY*="0" OR 

INKEYJ="0" THEN BORDER 0: PAPER 

0: CLS : GO TO 1 
3080 IF INKEY$="n" OR INKEY»="N" 

THEN GO TO 3100 
3085 IF INT iz/40i=Z/40 THEN BEE 
P .1,-10: BEEP .5,5 
3090 IF INKEYSO'T" OR INKEY*t>" 
N" OR INKEY5<)"0" OR INKEY$0"N" 

THEN GO TO 3070 
3100 FOR f=l TO 15: BEEP .05,10: 

NEXT t 
3110 BORDER 0: PAPER 0: CLS 
3120 PRINT AT 10,2. FLASH i; PAP 
ER 7: PAPER l;" En etes-vous sui- 
te) ? co/n) " 
3125 LET Z=0 
3130 LET Z=Z+1: IF INKEY*="n" OR 

INKEYS="N" THEN BORDER 0: PAPER 

0: CLS : GO TO 1 
3140 IF INK£Y*="0" OR INKEY»="0" 

THEN GO TO 3160 
3145 IF INT (Z/40)=Z/40 THEN BEE 
P .1 , -10: BEEP .5 ,5 
3150 IF INKEY«o"n" OR INKEYSO" 
N" OR INKEY|O"0" OR IMKEYS < 1 "N" 

THEN GO TO 3130 
3150 NEU 

4503 rem aaffl3EaKaiEUsiiR 

4505 PRINT AT 20.0, PAPER 6, INK 

0, FLASH 1; "Prime de YAHTZEE", 
PAPER 4; FLASH 0;" rapporte =) " 
, INK 7; FLASH 1, 100*CO 
4510 FOR f =1 TO 103 
4520 OUT 254, f 
4525 OUT 254, f +50 
4530 NEXT f 
4540 BORDER 6 
4550 PRINT AT 20,0; BRIGHT 0, PA 

PER 4; " 



t!00*CO 



4560 LET t ( j 

4570 RETURN 

5000 REM __ 

S005 IF NOT noy THEN GO TO 5052 

5010 IF 1)(J0)>"1 OR IV (jo) AND X 

= 12 AND COOl) THEN GO SUB pya 

5020 LET v(jot=l: LET yljO)=yijO 

) +1 

5040 IF x=12 AND noy THEN GO TO 

S CO 

5050 IF tx=ll OR x=10) AND noy A 

ND NOT OljO,y) THEN LET X =y BEE 

P .5, -40: GO TO SCO 

5052 FOR f=l TO 6: IF X=f THEN G 
TO SCO 

5053 NEXT f 

5055 IF X=12 AND noy=0 THEN LET 

rate=l: GO TO sco 

5060 IF tx=ll OR x=10 OR x=9) AN 

D noy THEN GO TO SCO 

5070 IF x=ll AND NOT I(U(1)=1 AM 

D u(2)=l AND U13)=1 AND ul4)=l A 

ND U(5)=l) OR IU12)=1 AND ut3)*l 

AND u(4)=l AND u(S)=l AND ui6l= 
II) THEN LET rate=l: BEEP .5,-40 

GO TO SCO 
5080 IF /=10 AND NOT ((U(1)>*1 A 
ND U (2) )=1 AND U (3) >al AND U 14) > 
=1! OR iul2)>=l AND U(3))=l AND 
U<4)> = 1 AND U(S)>=1) OR (U(3)>=1 

AND u 14) >»1 AND U 15) > = 1 AND <i 16 
)>=U) THEN LET rale = l: BEEP .5, 
-40 GO TO SCO 

S090 IF x<>9 THEN GO TO 5130 
5395 FOR f»l TO 6: IF uif)=3 THE 
N LET b=r : GO TO 5105 
5100 NEXT f IF f=7 THEN LET rat 
e<l: GO TO SCO 
5105 FOR f si TO 6: IF u I f ) «2 AND 

fob THEN GO TO SCO 
5110 NEXT f. IF 1=7 THEN LET rat 
«"1 : GO TO SCO 
5120 GO TO SCO 

5130 IF xo7 THEN GO TO 5150 
5135 FOR fn TO 6 IF U I M >«3 TH 
EN GO TO SCO 
5140 next f: LET rateel: GO TO s 

5150 IF xoe THEN GO TO SCO 
5155 FOR <*1 TO 6 IF Utf>>=4 TH 
EN GO TO SCO 
5160 NEXT f. LET rate«l 
5200 REM (Httti 
5210 LET o ( JO Txi «1 

5220 IF rat«=l THEN LET » < JO jX> « 
BEEP .5,-20 BEEP .5,0: RETUR 



5240 IF xall THEN LET SijO.x)«40 
5250 IF x=10 THEN LET Stj0,x)«30 
5263 IF xafl THEN LET I , : ■ ==t 
5270 IF x=12 OR X=ll OR x=10 OR 
x =9 THEN RETURN 

5283 FOR f=l TO 6 

5290 IF r=X THEN LET S(j0,x)=utf 

) *r : RETURN 

5303 NEXT I 

5310 FOR f=l TO 6 

5320 LET S I JO ,x) *S i jO ,X) *U If i *t 

5330 NEXT f 

5340 RETURN 

5503 REM "~ 

5513 DIM . . . 

5520 FOR f=l TO 5 

5530 FOR h=l TO 5 

5540 IF d$m=CHRs (143*hl THEN 

LET u(hisy<h)*i: LET noy=0 OR ui 

hls5 

5550 IF uih)=S THEN LET y =h 

5560 NEXT h 

5570 NEXT f 

5583 RETURN ___^_ 

5030 rem 'lEisHissi^HiJiiara 

6010 PAPERS BORDER 5 INK 0: C 

LS 

6320 FOR f=l TO 5: BEEP .05,-13: 

BEEP .05,0. BEEP .05,10: NEXT f 
5030 PRINT AT 0,11. PAPER 5. INK 

2;"T0TAUX : " 
6040 FOR f =1 TO n j 
6050 LET tp=0 
6060 FOR 5*1 TO 6 
6070 LET tpetP+S < f ,s) 
6030 NEXT s 

6090 IF IP>=63 THEN LET tP=LP*35 

PRINT AT 21,4, FLASH 1, INK jO 

.jStn;" *=> PRIME 63": FOR fc=l 

TO 100: OUT 254, H: OUT 254 , fc +50 : 

NEXT fc: PRINT AT 21,3, "_ 

6100 FOR 

6110 LET 

6120 NEXT _ 

5130 PRINT AT 



TO 13 
IP+s if ,5) 



(f -l) ,e; ink 

: tp 



6135 BEEP .05 . 10* 

6140 LET t ( f ) at C f ) *IP*C0 

6153 NEXT f 

6160 BEEP .5,0: PRINT U0, BRIGHT 

1, INK 7; PAPER 0,"Appuyez sur 
une tOuChCH SUP ": PAUSE 464 
■ BEEP .05,40 

6162 CLS : PRINT AT 10,7, PAPER 
0, INK 7, "sauvegarde to/n)7" 

6163 IF INKEY$="0" OR INKEY»="o" 
THEN GO TO Spa 

6164 IF INKEYS="N" OR INKEYt="n" 
THEN GO TO 6170 

6165 IF INKEY*o"N" OR iNKEYjo" 
n" OR INKEY$o"0" OR INKEY*O"0" 

THEN GO TO 6163 
6170 BEEP .05 . -10 
EEP .05,10 LET c 
6180 DIM (n j .13) 

DIM y in j) 
6190 LET jlajl+1. 
LET Jlal 
6200 LET jO»Jl 
6210 IF c" ' 
6220 GO T 
6500 REM 
6510 LET 



BEEP .05.3: 



6520 LET 



0=1 




IN 

BEEP 



BRIGHT 0, 
BRIGHT 1, 



BRIGHT 0, 
1) ,28, BRIG 



INK 



6990 LET 

URN 

6995 GO 

7000 REI _ 

7010 BEEP .05,40 

7315 PRINT AT 4+k* l< 

R 7; ■' " 

7023 LET d» .d> =CHR$ 

+ 1441 

7030 LET ancs0 LET lon=INT 

#31) *1 

7035 FOR f=0 TO 100 

7040 IF r/2aIfJT tf/21 THEfJ P 

AT 20,anc; BRIGHT 0, PAPER 
", BRIGHT L.AT 20 , I , PAPER "" 
K 0,CHR* lINT (RND*6)+144I 

.01 , t ■ LET anc=f 
7070 NEXT f 
7075 PRINT AT 20,anc, 
PAPER 4; -- " 
7080 PRINT AT 20. ton, 
PAPER 7, INK 0; d« Id) 
7090 BEEP .05 ,40 
7095 PRINT AT 20.i.ori. 
PAPER 4. " M 
7100 PRINT AT 4+2*id- 
HT 1; PAPER 7. INK 0; 
7120 RETURN 
7500 REM H'~ 
7510 BEEP 
EEP .05,10 
7543 PRINT AT 0,8, 
7553 PRINT AT 0,27. i.rm jo, 
•' , AT 0,27, '. (JO) 

7560 PRINT AT 15.9, INK ©,»a 
7570 PRINT AT 16,10, INK 0.CO 
7580 PRINT AT 17,21, INK O.yijO) 
7590 IF V(JO) THEN PRINT PAPER 1 
, INK 7, AT 17,29, "Y" GO TO 7600 
7595 PRINT AT 17,29, PAPER 3," 
7600 BEEP .05 . -10: 
EEP .05.10 

7602 FOR f =1 TO 6 

7603 PRINT AT 2+2*1 
T 0, PAPER 7, " 

7604 NEXT f 

7605 FOR f =7 TO 13 

7606 PRINT AT 2*2* i 
HT 0, PAPER 7, " 

7607 NEXT ( 
7610 FOP i =_ . 

■' THEN LET nt = STR* 
" PRINT 
,, , PAPER 
BRIGHT 
: Ink 3;n«: go TO 7633 
7622 IF oTjO.n THEN LET n«flSTR» 
S(jO.f): IF LEN nt«l THEN PRINT 
AT 2+2*if-U,9, BRIGHT 0; PAPER 
7;" ".AT 2*2* if-1) .10, BRIGHT 
1, INK 0,n* GO TO 7630 
7625 PRINT AT 2»2*>f-l>,9, BRIGH 
T 0. PAPER 7, ■' 
7630 NEVT t 
7640 FOR f»7 TO 13 

7650 IF i jO , n THEN LET n* = STRj 

SiJO.fJ IF LEN n*«2 THEN PRINT 

AT 2+2* it -7) ,23, BRIGHT 0, PAPE 

R 7," ".AT 2*2* I f -7) ,23, BRIGHT 

, INK 0, nt GO TO 7660 



BEEP .05,0 



BRIGH . 



BRIG 



■ '-■ ~ ^-' run. [-A 1W V 

7623 IF OVjO.f) THEN LET ntsST 
SljO.f): IF LEN n»»2 THEN PRI 
AT 2*2* if-D, 9, BRIGHT 0, PAP 



N 

5230 IF x*12 THEN LET S > 



,23. BRIGHT 0, PAPE 
",AT 2+2. (f-7) ,24, BRIGHT 
1; INK 0, n« GO TO 7660 
7655 PRINT AT 2+2. i f -7) , 23, BRIG 
HT 0, PAPER 7, " 
7660 NEXT f 

•661 BRIGHT 1 BEEP .05,-10 BEE 
P .05,0 BEEP .05 , 10 
7662 FOR I »0 TO 4 
7664 PRINT AT 4+2*f,26, PAPER 7; 



|0 ,x 



= 50 



7665 NEXT 



Suite page 18 



ZORK 



Vous etes Zork, une sorte d'insecte et, comme tous les 
insectes. voire vocation est de reparer les ordinateurs 
et, plus particulierement ZORK, I'ordinateur fou qui sa- 
bote les autres... 
Mode d'emploi dans le programme. 



Gilles DEROO 



1 P€n« ZFSx CO>itPE ZOm 

2 REM* SUO COmopoRE 6* 



is ran 

is ■--.•..-...... ,, 

it PEntcoit >-.= ^;- t fE-, : E :efjhiS • 
IS REM* OLE VOUS TPQWEREZ DBMS LEI ■ 
ilOMES DE 1.79-531)4 




eas. B75.&30 



3? =t - > ,n, ,,..,,, 

48 RE" •:»••<:»• i owmoe 

41 RE" -ir-CWB WIS CLBIR 

42 RE" -tr-C8**3 ROSE 

43 RE" *IT"Cl«.*6 VERT 

44 OEM -r-CRV-2 BU»JC 

43 Bin •^••ZM\'* TURCUOISE 



43 efii TTOUVEnEHTS K CURSEUB 



53 REN H M--CURSEUS * 

5* repi -ir-SHi-T.ns-r; 

53 REfl -r -CURSE UR ( 



61 REM B VCJS DE COPIER I 

IT ^"•"•Itlll Mill 
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.65 P0XES*r*,13 



:■?■.' r:--£s-: 

23? re- «• sprite; » 

210 POKE v-21.7 

213 =:-E 2040.13 FrvE;j*2,<3 c r. E ; i;4 ; . , 

220 FORl-elT-I ~-t>-l? FM-EE^I'I.RNEXT 

:.":■ —?:«■?-!-.?: -e-:' -■: ee.-;-:.;- :■£ ■■ 




■v-4.163 POKEv.3.233 



..GBUCME D...DROITE" 

208 PRiHT-0»»M»»HL..rP'EL. EES PiCEttCEUPS 

283 PD1MT-B0 ■*:■ F-..c E.;-.-E!iCE = r- 
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I LES LIOMES DE 478 B 



1 LE DECOR EST rw_ i 



SURVIVANCE 



Durant la guerre, le gouvernement vous charge de re- 
cuperer les citernes d'energie, qui se trouvent sur le 
terrain ennemi. Malheureusement, ce dernier a mine 
son territoire. 

BONAZZA Stephane 



100 CALL CLEAR 

101 JLK-0 

110 CftLL SCREENC2) 

120 CALL CHARC152, "333ICCCC3333CCCC": 

130 CALL HCHARI1, 4. 152,29) 

140 CALL VCHARU, 32, 132,22) 

130 CALL VCHARd, 4, 152,22) 

160 CALL HCHAR(23,4, 132,2?) 

162 FOR 12-2 TO 11 

163 CALL C0L0RII2, 16, 1) 

164 NEXT 12 

170 A«""SURVIVANCE- 



. . .GAUCHE" 



190 


C-13 


200 


GOSUB 10000 


210 


BOSUB 30000 


240 


CALL COLOR < 16, 10,6) 


250 


GOSUB 10100 


26U 


GOSUB 10070 


260 


A»-" (C) 19B4" 


2V0 


L-24 


3O0 


C"6 




GOSUB 10000 


311 


CALL SOUND(300.277, 10) 


-'. 1 3 


CALL SOUND (300, 349, 10) 


MA 


CALL SOUND (300, 349, 10) 


314 


CALL SOUND < 300, =49,8) 


313 


COLL SOUNDI300.370, 10) 


316 


CALL S0UND(3O0,349, 10) 


317 


CALL S0UND(I00,277, 10) 


3lfl 


CALL S0UND(lOO,-3, IS) 


370 


A*-"DESIREZ-VOUS LES REGLES 


310 


L-12 


340 


C-6 


:-,'• 


GOSUB 10000 


1A0 


CALL KEV(0, KEY, STATUS) 


7l7ft 


IF STATUS-0 THEN 360 


■H', 


IF KEY-ASCI"N-)THEN 500 


%R1 


IF KEY'.,'ASC1"0")THEN 500 


^90 


GOSUB 10070 


"'191 


At> = "LES TOUCHES : 


4 OO 




4 or, 


C-6 


406 


GOSUB 10000 


407 




410 


L-5 


470 


C-6 


430 


GOSUB 10000 



433 L-6 

434 C-6 

435 GOSUB 10000 
437 A*-"'J* 



CHA 



438 L-7 

439 C-6 

440 GOSUB 1 0000 

441 A«»"FRESSER UNE TOUCHE POUR 
IJER. " 
'.12 L=20 

443 REM 

444 C=6 

445 GOSUB 10000 

446 CALL KEYCO.KEV, STATUS) 

447 IF STATUS-0 THEN 446 
449 GOSUB 10070 
452 A*=>"LE JEU : " 
454 L-3 

456 C=6 

457 GOSUB 10000 

459 A«="DIRIGEZ-VOUS A TRAVERS 
MPS DE MINES. " 

460 L«6 

461 C=-6 

462 GOSUB 10000 

463 A«-"LES MINES SONT DE COULEURVERTES. 
UN CARACTERE JAUNEVOUS REPRESENTE." 

464 L-9 
463 C-6 

466 GOSUB 10000 

467 A«-"VOUS POSSEDEZ 100 POINTS D'ENERG 
IE. VOUS DEVEZ RECUPERER LES CITERNES D'E 
NERQIE BLANCHES EN EVITANT 

46B L-I4 

469 C-6 

470 GOSUB 10000 

471 A»-"LES MINES." 

472 L-1B 

473 C-9 

174 GOSUB tOOOO 

475 GOSUB 10100 

476 GOSUB 10070 

477 A*-"EN HAUT.A GAUCHE SE TROUVE LE NO 
MBRE DE VIES RESTANTES." 

47B L-l 1 
4B0 C-5 



BASIC SIMPLE 




181B3CFFFF3CIB19") 
I, 1) 
3B, "7E4242FFFFFFFFFF" ) 



(22-2*l)«RND)- 



4S1 GOSUB 10000 
4B2 GOSUB 10100 
4B3 GOSUB 10070 

501 GOSUB 10070 
304 RANDOMIZE 
505 CALL CHAR (141 
310 CALL COLOR! Li 
515 CALL CHARC 131 

520 CALL COLOR C 

521 FOR 17-1 TO 

522 CALL HCHARti 
31-3*1 )-RND) 1-3,138) 
323 NEXT 17 

525 CALL CHAR<!2EV'FFC3A59999A3C3FF" 

530 CALL CDLQRU3, 1,42) 

533 PARTIE-33 

336 ENER-100 

537 REM 

339 CALL HCHARU,3,PARTIE> 

540 CALL HCHARI2.30, 12B) 

543 X-2 

330 Y-30 

570 RANDOMIZE 

575 REM 

5B0 REM 

3B3 CALL SOUNDI1000, 500,0) 

590 CALL HCHAR(INT( 122-2* 1 > »RND) *2, II 

31-3*1 )*>RN0>*5, 146) 

395 ENER-ENER-.3 

60O CALL KEY(0,K,ST) 

605 CALL SOUNDI-500, 120,3,-7,7) 

610 IF ST-0 THEN lO-JO 

612 CALL HCHAR(X,Y,32) 

613 IF K=ASC(")'.")THEN 7O0 
620 IF K- 
630 IF K- 

640 IF K-ASCt"J")THEN 760 
650 GOTO lOOO 
700 Y-Y-l 
7IO GDTO 770 



730 GOTO 770 
740 X-X+l 
750 GOTO 770 



T199/4A 



760 

761 CALL HCHARIX, Y, 128) 

770 CALL GCHAR(X,V,PIC> 

77^ IF PICI3B THEN 22000 

775 IF PIC>32 THE«N 20000 

900 CALL HCHAR(X, V. 128) 

100O CALL HCHARIX. Y, 128) 

1010 CALL H8HAR(INT ( (22-2< I 1 »RND) 'T. INT 

131-3*1 ) tftNDI *3. 140) 

1020 ENER=ENER-.S 

1025 IF CNEft=0 THEN 20000 

1030 IT ENER-25 THEN 1040 ELSE 600 

1040 CALL S0UND*423O. I 10.0) 

1030 OOTO 600 



10000 A-LEN(A») 

10010 FOR 1-1 TO A 

10020 CALL HCHAR(L,C.ASCISEG*(A». I. 1) 1 1 

10040 C-C-M 

10043 IF C:-31 THEN 10046 ELSE 10030 

10046 C-6 

10047 L=L*1 
10050 NEXT I 
10060 RETURN 

10070 REM + + ■*♦ *•*+♦+♦ 4- 1****-* 

10075 FOR 16-2 TO 22 

100BO CALL HCHAR(I6,3,32,26) 

10085 NEXT 16 

10070 RETURN 

10100 REM ***************** 

10110 FOR 13-1 TO 700 

10120 NEXT 13 

10130 RETURN 

10140 REM + + + * ++**4-* + 4-++4'+++ 

20000 FOR 1 10-1 TO 200 

20O10 NEXT 110 

20030 CALL SOUND (50O, 648, 0) 

20040 CALL HCHAR ( X , Y, 32) 

20030 CALL HCHAR ( 1 , 4, 132, 29) 

20051 CALL VCHARd, 32, 132,22) 

20032 CALL VCHAR d , 4, 132, 22) 

20033 CALL HCHAR (23, 4, 152, 29! 
20900 PART IE-PART I E-l 

21000 IF PARTIE-48 THEN 21010 EL9E 339 

21010 CALL CLEAR 

21020 CALL SCREENI12) 

21030 PRINT "ENERGIEi "IENER 

21030 INPUT ■' ENCORE ?"|R» 

21060 IF R«<> M N" THEN 100 

21070 END 

22000 JLK-JLK*1 

22100 CALL HCHARiX, Y, 126) 

23000 IF JLK-IO THEN 21030 

23100 ENER-ENER*30 

23110 IF (ENER>230)*(ENER>300)*(ENER>730 

) *(ENER>900)THEN 23120 ELSE 23200 

23120 PARTIE-PARTIE+1 

23130 IF PARTIE>37 THEN 23140 ELSE 23200 

23140 PARTIE-37 

23200 FOR 19-110 TO 130 STEP 3 

23300 CALL BOUND (200, 19, 3) 

23400 NEXT 19 

24000 CALL HCHAR ( X , Y, 32) 

23000 GOTO 600 

30000 REM •—■<mJSIOUE>™- 

30010 FOR MUS-1 TO 23 

30020 CALL SOUND (- 1 . INT (( 1 2000-BOO* t ) «RN 

01*800, I) 

30030 NEXT MUS 

30040 RETURN • 



CALC GRAPH STAT 



PC 1 500 



Ne vous y trompez pas. bien qu'il tourne sur un PC 
1500. il s'agit la d'un veritable tableau professionnel 
avec en plus, fonctions statistiques et representation 
graphique des donnees. 

Olivier LICORT 

1 • Configuration pour le fonctionnement de 'Calc Graph Slat": 

PC 1500 * 8Ko 

PC 1500 * 16Ko 

PC 1500A + 4Ko avec ou sans CE 150 

PC 1500A * 8Ko 

PC 1500A * 16KO 

2 - Principe general du tableur "Calc": 

"Calc Graph Star permet la creation de tableaux de calcul. offrant 
une grande clarte d utilisation obtenue par le principe suivant: 
Le tableau est en (ait constitue de deux tableaux superposes. Leurs 
dimensions sont identiques et leur correspondance est totale. Le 
premier, dit tableau des etiquettes ou tableau A. est te support de 
toutes 'es valeurs constantes. alphanumeriques ou numeriques. qui 
interviennent dans les calculs geres par le second, tableau des for- 
mules ou tableau 8. 
Exemple: 

TABLEAU DES FORMULES 



TABLEAU ETIQUETTES 



200 



On constate que lequation du tableau des formules met en jeu les 

cases At et A2 du tableau A. ce qui entraine la mise en B1 du 

resultat de loperation placee dans certe meme case. 

Ce principe de fonctionnement permet done de modifier les valeurs 

du tableau A. tout en conservant les formules du tableau B. 

3 - Utilisation du tableur "Calc": 

Partant du principe expose au chapitre precedent, il va falloir mettre 

en clair. le champ d'utilisation et prevoir Torganisation du tableau. La 

procedure implique les demarches suivantes: 

A) Connaitre le nombre d'equations mises a jour par 1'application. 

B) Evaluer le nombre de valeurs devant inlervenir dans les calculs. 

C) Determiner l'ordre des calculs et leur repartition dans le tableau. 

D) Verifier que le tableau pourra contenir 1'ensemble des donnees et 
formules. 

Exemple: 

On desire connaftre le prix de vente d'une gamme de produits sa- 

chant que le prix Y correspond au calcul suivant: 

Y= X (prix d'achat) + 6 %-X (Frais variables) + N (frais fixes) + 40 

% (marge). 

On souhaite par la meme occasion, obtenir le prix HT et TTC. Le 

tableau intervenant devra done avoir au moins 6 colonnes et un 

nombre de lignes dependant du nombre de produits. 



TABLEAU A: 



A 
Pr.d'schat. 


B 
frais var. 


C 

frais fixes. 


D 
marges. 


E 
tot.HT. 


F 
let. TTC 


to 




3 








20 




6 








TABLEAU E 


: 











A 


B 


C 


D 


E 


F 




A2" 06 




(A2*B2*-C2)".4 


* 2 s 


E2- 1.186 




A3' .06 




(A3+B3*-C3)\4 


/ 3" 


E3' 1.186 



-.',' et" (pour puissance). 

D) Les operations sont effectuees dans lordre decnture. sans pno- 
nte particuliere. A noter que les operations exigeant une quelconque 
priorite. doivent etre mises entre parentheses et un seul niveau est 
autonse. 

Exemple: (A1 " 2) + (B1 " 3) est autorise. 
((AT 2 + B1)' 3) est interdit. 

E) Deux signes operatoires ne peuvent se suivre. Il y a done lieu de 
les mettre entre parentheses. 

Exemple: AT - 2 est interdit. 

AT (- 2) est autorise. 

F) Un maximum de 7 signes operatoires est autorise. par formule. 

G) La fonction L (voir detail des fonctions) permettant d'obtemr un 
arrondi a N decimates, il est important de savoir que les decimates 
suppnmees ne sont plus prises en compte dans les calculs. 
Exemple:A1 = 10 3 = 3.333333333 

Avec arrondi = 2 on obtient A1 = 3.33 

Si B1 = AT 300 avec arrondi = 2 on obtient Bl = 999 et 

non 999.99 
H) Ne pas mettre de message alphanumerique dans le tableau B. 
I) Les cases hors des limites du tableau, provoqueront des erreurs 
de calculs si elles sont impliquees dans une formule du tableau B. 
Exemple: TABLEAU = 10 x 10... case limite J10. 

DETAIL DES FONCTIONS 

I - Mise a jour: 

Touche: "A". Affichage: "CALC. 

Cette fonction permet la remise a jour du tableau A a partir des 

equations ou des valeurs memorisees en tableau B. L'ordre de mise 

a jour est le suivant: 

Colonne de 1 a N. (N = limite de la colonne). 

II est recommande de tenir compte de l'ordre de ta mise a jour dans 
le cas de calculs faisant intervenir des valeurs resultant de calculs 
eux-memes obtenus par une mise a jour et stockes dans les cases 
de plus grand indice. 

Exemple: 



4 - Format du tableau: 

Le format concerne aussi bien le tableau A que le tableau B et 
s'e/pnme en nombre de cases. Ce dernier correspond au produit du 
nombre de lignes par le nombre de colonnes. II ne peul exceder te 
nombre maximum autorise par la place memoire dispomble. 
5-Visualisation et deplacement: 

La visualisation du tableau se fait par lintermediaire d'une fenelre 
de deplacemenl, donnant acces a une case du tableau A ou B La 
fenet/e se deplace grace aux touches: I . 1 .—•,*—. Les tableaux 
A et B ne pouvant etre visualises en meme temps, on accede a 
chacun deux par une touche qui leur est propre. Soil E pour visuali- 
ser le tableau etiquette ou D pour celui des lormules. On peut aussi 
passer de I'un a I'autre par la pression de la touche qui leur corres- 
pond. 

Imfi&nant' Un certain nombre doperations depend du lableau visua- 
lise, amsi que la case affichee En voici le detail: 
TABLEAU: Impression et Iransposition. 
CASE Entree d'une etiquette ou rj'une formule. 

6 ■ Entree des donnees: 

L'enlree de donnees, que ce soit valeur numerique ou formule de 

calcul. est liee aux imperatifs suivants: 

Maximum 16 signes par entree. 

Les entrees du lableau A ou B dependenl de la case affichee dans 

laquelle elles se trouvent. 

Lentree dune donnee sur le tableau A se 'ail par A,et B pour le 

tableau B. 

Importanl: Toute entree faile sur une case ayanl deja un contenu. 

remplacera celui-ci. 

Pour vider une case, il suffil de presser ENTER sans aucun carac- 

lere. 

7 - Calculs: 

Lrjs formules entrees dans le tableau B utilisent les valeurs du ta- 
bleau A el placenl les resultals dans ce dernier II est toutefois cer- 
tames precautions indispensables au bon fonctionnemenl do I inter- 
preter, ayant la charge d'analyser les equations du tableau B. 

A) Les calculs ne sonl elfeclucs que lors de la mise a lour, obtenue 
par la pression de la touche C Ipour calcul) 

B) La mise a jour suit un ordre precis donl il laul tenir comple dans 
la disposition des equations. Lordre esl celui des colonnes soil Al a 
AM 

C) Les Btgnes operatoires pris en compte par linlorpreteur sonr I 



CASES 



TABLEAU A 



TABLEAU B 



A3 + B5 

1000" C6 



PREMIERE MISE A JOUR 



1.86 
245 

2.45 



DEUXIEME MISE A JOUR 



246.86 

245 

2.45 



A3+ B5 
1000" C6 



Conclusion: II est imperatif de tenir compte de l'ordre de mise a jour 
dans te stockage des valeurs ou des formules devant intervenir 
dans les calculs finaux . Pour eviter tout risque d'erreur. il esl 
conseille de proceder a deux mises a jour conseculives de facon a 
confirmer les resultals esperes. 

2 - Entree des formules: 
Touche: "B". Affichage: TOR". 

Cette fonction permet lentree de formules. qui seront memorisees 
dans le tableau B en correspondance avec la case ou se trouve le 
curseur. au moment de I'enlree de la formute. Ce mode aulortse 
aussi bien I'entree de formules. que de labels pouvant etre dans les 
deux cas, dun maximum de 16 caracteres. La satsie des formules 
ou etiquettes est conforme a la procedure decrile en paragraphe 1. 

3 - Etiquettes.: 

Touche: "C". Affichage: "ETI". 

Le mode "ETIQUETTE'' permet I'entree dans le tableau A. de va- 
leurs. de litres ou de signes de separation. Les entrees sont attri- 
butes a la case ou se trouve le curseur el sont saisiesselon la 
procedure decrile au chapitre 1. 

Les etiquettes alphanumeriques peuvent eventuellement intervenir 
dans les calculs de mise a jour, dans ce cas. leur valeur est egale a 
zero. 
Exemple: 



CASES 


TABLEAU A 


TA8LEAU B 


A2 
C5 


VENTES 83 


A2 + 500 


MISE A JOUR 


A2 

C5 


VENTES 83 

500 


A2 + 500 



lecran 

5 * Tableau des formules: 

Touche "D*. Affichage: "I F". 

Les caractenstiques de celte fonction sont identiques a ceiles du 

tableau A (voir paragraphe 3'D). a la seule difference que e'est 

le tableau 8 des formules qui est visualise par cette operation. 

6- Sauvegarde sur cassette: 

Touche: T". Affichage: "SAU". 

Cette fonction permet la sauvegarde de I'ensembie des tableaux A 

et B sur cassette (micro ou standard). 

Procedure: 

a) Mettre le magnetophone en position enregistrement avec ta 
bande positionnee a l endroit ou doit commencer I' enregistrement. 

b) Presser ENTER et le chargement commence. 

c) Une fois le tableau sauve. le programme retourne au tableau en 
cours. 

7 - Lecture sur cassette: 
Touche: "G". Affichage: "LEC". 

C'esl par lintermediaire de cette fonction que vont elre charges 
dans la machine, les programmes sauves par la procedure decrite 
plus haul, tl est a noter que te chargement dun tableau sur cassette 
met celui-ci au format de la sauvegarde. n est done imperatif de 
veiller a ce que la capacite de la machine soil msuflisante pour re- 
cevoir le fichier. 
Procedure: 

a) Mettre le magnetophone en position lecture, avec la bande posi- 
tionnee a I'endroit ou commence le fichier. 

b) Presser ENTER pour demarrer la lecture. 

c) Le programme atfiche le nouveau tableau des que ce dernier est 
completement charge en machine. 

8 ■ Impression du tableau: 
Touche: "H". Affichage: "IMP". 

Cette fonction permet I'impression sur la table tracanle. de I'un ou 
de I'autre des deux tableaux du calc. Dans les deux cas. la proce- 
dure est identique: Entree du titre du tabteau suivi de son impres- 
sion et de celle du tableau concerne. 

A noter: I'impression du tableau se fait dans le sens vertical, co- 
lonne par colonne (voir exemple final). 



9 - Initialisation des tableaux: 
Touche: T. Aflichage: TIN". 

Cette fonction remet 1'ensemble des tableaux a zero et arrete le 
programme. L'initalisation n'est effective qu'apres confirmation de 
I'utilisateur qui le fait en pressanl "ENTER". Dans le cas d'une autre 
touche. le programme revient sur le lableau en cours sans ettectuer 
de remise a zero. 

10 - Deplacement inconditionnel: 
Touche: "J". Affichage: "DEP". 

Cette fonction offre la possibility de se deplacer en n'importe quel 
point du tableau, sans avoir recours aux touches de deplacement. 
La procedure exige que la case ou Ton desire positionner le curseur 
soit entree a I'endroit ou il se trouve. 

11 * Transposition: 
Touche: "L". Affichage: TRA". 

Cette fonction est I'une des plus importanles de ce CALC. car elle 
permet la transposition dans toutes les cases d'une ligne ou d'une 
colonne du contenu d'une case quelconque. De plus, la iransposi- 
tion s'effectue de deux fagons dependanles du tableau sur lequel 
etle agit. 

Transposition du Tableau A; Dans le cas du tableau des etiquettes. 
la transposition se fait littoralemenl. a partir de la case ou se irouve 
le curseur. jusqu'a la limite du tableau, la transposition pout, se laire 
horizontalement en entrant le num6ro de la ligne dans laquelle elle 
doit se faire, suivi du pas de transposilion corrospondant au pas 
d'increment des cases. 
Exemple; 



CASES 


TABLEAU A TABLEAU B {A 


10. B 10| 


A4 


-• ' CUMULS' ' " 




TRANSPOSITION ■ 4; PAS 1 



La transposition verlicale se passe de la meme maniere que I'hori- 
zontale a la seule difference qu'il faut enlrer la coordonnee de la 
cotonne. 
Exemple: 



CASES 


TABLEAU A TABLEAU B (A 


10. B 


10) 


A4 


'" ' CUMULS - ' ' _ 








TRANSPOSITION A; PAS 1 







A noter: II esl possible de mixer les vateurs numeriques avec les 
etiquettes alphanumeriques. mais il laut placer la valeur numerique 
en premiere position pour que celle-ci soil prise en comple par la 
mise a jour, 
Exemple 



CASES 



TABLEAU A 



A2 
C5 


2500 HT 


A2 


(A2- 


.186) 


MISE A JOUR 


A2 
C5 


2500 HT 
2965 


A2 


(A2- 


186) 



Transposition sur lableau B 
TABLEAU B Transposition honzonlale. 

La transposilion sur le lableau, s'effectue identiquoment a cello sur 
lableau A, mais le principe de transposilion est different. La Iranspo- 
sition est 'intolligcnlo", a cola quo lo conlonu des cases Iransposees 
est adapte a chaque case support do la transposition. 
Exemple: 



CASES 



TABLEAU A 



TABLEAU 8 (A 10. B 10) 



4 - Tableau des etiquettes: 

Touches' "E". Affichage I t 

i:i geatton da raffiehage du calc parmei ia visualisation simuita- 
nee du tableau A el B Dans le cas present, le lableau A esl aldcho 
el les deplacemenls se loni comme explique au chapilre 2 
Attention : La transposition et I impression sonl dependanlcs du ta- 
bleau afliche ll laul done sassuror. avanl I une on I'autre da CM 
deux operations, que le lableau reqtns est bien celui qui se irouve a 



RANSPOSITION 1: PAS 



12 - Format des resullals: 

louche L Affichage: "PRE". 

Conccrnant le formal des resullats, celte fonciion permet de precl- 

ser avec combten de decimates seroni aftiches les calculs oblenus. 

grace a la fonciion C. Le nombre a entrer est compris enlre e! 14. 

A noler que les decimates supprimees sont perdues el ne peuvent 

intervenir dans les calculs. il est done prudent d'en lenir compte 

pour s'assurer de la |ustesse des resullals escomptes. 

Arret accidentel ou provisoire: 

Dans le cas d'une interruption accidentelle ou volonlaire (BREAK), il 

reste possible de reprendre le cours des operations sans alfecler le 

contenu des cases. Pour cela (aire: CONT ENTER. 

Par ce moyen. il esl amsi possible d'arreter la machine et de repren- 

dre ulteneurement le tableau en cours, sans changer son contenu. 

Remise a zero: 

Le contenu du tableau ainsi que son format, seront automalique- 
ment remis a zero dans le cas des manipulations suivanles: CLEAR 
ENTER. RUN ENTER. 



13 - Resullats statlstiques: 

Touche: "M". Atdchage; "RES". 

Cctte lonclion permei d'obtenir sur imprimante, les resullats sui 

vanls: Variance. Moyenne. Ecart-Iype el Coeflicienl de varialion. 

Ces resullats sont calcules par colonne (A, B. C etc..) et c'GSt apres 

avoir confirms par ENTER le choix de "M" que Ton precise les co- 

lonnes concernees "GRO" (groupe). 

Exemple: 

RESULTATS STATISTIOUES DES COLONNES A, B st C 

Touche: "M" 

confirmation par "ENTER" 

entree des colonnes "A-C ENTER" 

impression des resullals. 

14 - Graphiques: 

Touche: "N". Aftichage: "GRA" 

Cette fonciion donne acces au sous-menu des graphiques- "3D-2D- 

CE-LI" permeltanl le choix des graphiques soil 



3D pour histogrammes 3 dimensions 

2D pour hislogrammes 2 dimensions. 

CE pour cercle statislique 

LI pour GRAPHE a lignes 

Les graphiques sont elfectues pour les valeurs du tableau A et les 

groupes d'impression, correspondanls aux colonnes. 

Chaquc graphique imphque I'enlree du label (LBL ou hire), de 

I'echelle d'impression (sauf CE ) qui pout elre calculee sur la plus 

grande valeur (PC) N sur une valeur quelconque obligatoirement su- 

perieure a la plus grande des valeurs (VS). 

Le programme demande ensuile s'il doil imprimer les reperes ce qui 

est precise par "OUI" ou par "NON" suivi d'ENTER. 

ATTENTION: 

a) Les cases de la premiere ligne (Ai. B1, CI etc.) serveni a iden- 
tifier les graphes, elles ne sont done pas prises en comple dans les 
graphiques. 

b) Le nombre de donnees par colonne est limite a 13 pour quefque 
graphique que ce soil. Oans le cas ou les colonnes ont une lon- 
gueur supeneure a 13 la fonciion "N" est moperanle 
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28 
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A6j-36XC3'A6> A6*B6 


(A6*3) 






Uorlaoc* 


ll?.43B?e4 






I 


RET1 <c) OLIUIE 




800 


I71:F0R U=1T0 LEN 


220JNEXT U:RETURN 


50-2:A*-CHR* n 




=RIGHT* (C*, 


GLCURSOR (0, 




K=-25: 




-(N, T) 




R LI COT 


185 


ifl*-"L.Bt-"iC»»"" 


A»:L^ASC HID* 


221: IF -HID* CC*,S, 


:G0T0 267 




2) 


-138):S0R6N 




GLCURSOR (IB 


346£ 


: GLCURSOR (N-> 


2 


CLEAR :BEEP ON 




: GOSUB 260: 


CA», U, ]j:Z=UAL 


1J = ' , -"LET J=0: 


385: NEXT l:POKE 2B 


3015 


IF E*0"3D" 


: GOSUB 3878 




3,-15): 




SIN (X2^2*X1 




:LOCK 




PRINT *C»jR, P: 


MID* (A*, U+1,2 


N=8:G0TO 224 


758, PEEK 26758 




AND E*0"2D" 


3125:01=3099: 




LPRINT A*(E, 




)T68-3, T<CGS 


3 


CLS :BEEP is 




PRINT «c*;a*(* 




222:J=H<0):N=1 


-2:GOT0 268 




AND E*<>"CE- 


GOSUB 3095: 




8):GLCURS0R 




(X2^2*XJ)*60 




WAIT 8:E=INT ( 




>, B*(*):GOTO ] 


J72:IF LJ64AND L-*N 


224:F0R U=S10 0: C= 


310:DATA 32,34, 10, 




fiNO E»(> ,- LI" 


GLCURSOR (0, 




(0,8): IF Ul" 




*9):LPRJNT 




(HEM -330 )/• 32) 




1 


•Lft-t66AND B-l 




93, 11, 91, 40, 68 




THEN 3810 


-230):GOIO 1 




32S8LET Z=0 




CHR* (65--E); 




: PRINT "Format 


112 


:A*-"L£C"iGOSUB 


AND 2>0ANO Z<P 


225:U=ASC fIJD* (C* 


,41,62,61,64,4 


3028 


:G0TO E» 


I 


3235 


:L=ABS UAL a» 




STR* (F-*1):X 




C'iSTR* £;•)' 




258:U=J1S:G0T0 


-•2LET A*=LEFT* 


,U, 1)=1F U=47 


3, 59, 45, 44, 42, 


3850 


: GOSUB 780: A* 


3138: IF FOJTHEN 




(E,F)x(U^180 




l-=X2*Xi: 




■- CURSOR 14: 




B00 


(R», U-l;*CHRl 


LET N-N+IMF C 


58, 47,63, 17,33 




-"LBl'JC*-" 


3137 




): GOSUB Ui: 




RETURN 




INPUT "Largeur 


115 


: CLEAR :0N 


<L-*N)*RJGHU I 


O0LET J=J--C: 


, 1 8, 34 




: GOSUB 260: F 


3135:GLCURS0R (8, 




GLCURSOR (-1 


3880 


:1F HOI 




:"JR» 




ERROR GOTO 278 


A*, LEN A»-U):U 


NEXT U:RETURN 


315:DflTA 19,35,28, 




*=C* 


-130):SORGN 




0, K-2) ■■ 




RETURN 




R=UAL R*:IF R< 




:CLS : INPUT »R 


=U+1 


226: IF W-42LET J=J 


36, 21,37, 22, 3B 


3052 


•IF E*=-CE" 


: GOSUB 3B80: 




LPRINT CHR* 


3B85 


LJNE (8, 8)-( 




10R R>26THEN 3 




,P:G0SUB 48: 


174:NEXT U:IF B-I 


*C:N^N-»l:NEXT 


SBeifli^-PRE": G0SU8 




RETURN 


J=0:K=0:X2=- 




(65+E>;SIR* 




8, - J 38), 2, 8: 


5 


CLS :PRINT "Fo 




INPUT «A*(*),B 


LET B«<E, IJ-4BJ 


U: RETURN 


258: U=S84: GOTO 


3053 


AJ^'ECH'^M^ 


l:Z=0: COLOR 




(F-*J>: 




LINE (185,-1 




rmat C';5TR* 




*(*):GQT0 18 


=n*:G0T0 176 


22B:lF W=43LET J=J 


688 




"PC-US:": 


8:GLCUftS0R ( 




GLCURSOR (0, 




38)-(I85, 0): 




INT (E'R);")": 


117 


A* = "lnP ,, :GOSUB 


175:A*CE, W-43)=Aa 


+ CiN-N-M:NEXI 


504:A*='•DEC":C*= , '- 




GOSUB 268: E* 


135, 10): 




K-20) 




LJNE (180,-1 




CURSOR 14: 




258:U=J28:GOT0 


176:NEXT E:BEEP 2: 


U: RETURN 


: GOSUB 268 




BRIGHT* (C», 


LPRINT A*(E, 


3248 


K=K-25: 




18)-(108, -24 




INPUT "Lon9iiei> 




B00 


GOTO 11 


238: JF U=4SLET J»J 


505: IF LEN C*<>1 




2):IF E*<>"P 


0): GLCURSOR 




RETURN 




0) 




r:";P» 


128 


fi*=-LBL*:C*--* 


180:FOR F=Y-*NT0 P 


-C:n=N-*J:nexT 


THEN 504 




C'AND E«?"0 


(8,8) 


3250 


IF-UAL A*<E, 


3818 


LINE (205,-2 


7 


P=UAL P«: IF P< 




: GOSUB 260: F*= 


STEP N:u-1:]F 


U: RETURN 


5)8:PR=UAL C*:60TO 




S"THEN 3853 


3J36:L1NE (8,0)-( 




FK8C0L0R 0: 




48)-(205,-ll 




10R P)190R R*P 




C»: GOSUB 700: 


F>P8EEP 2:G0TD 


232: IF U=94LET N=N 


11 


3856 


W=8:U=3066: 


0,-N>,0, 1 




GOTO 3255 




9): RETURN 




JETHEN 3 




GLCURSOR C287, 




-i:J^J^C:NExT 


780: TEXT :LF 6: 




GOSUB 6E3: 


3137: IF UAL A*(E, 


3251 


GOSUB 3898 


3820 


LINE (8,8)-( 


9 


R-R- 1 : P-P- 1 : 




B}:LPRJNT "T " 


182:L=ASC n!D» CA» 


V: RETURN 


GRAPH :ROTATE 




GOTO E* 


FX0COLOR 0: 


3255 


LINE (8, *)-( 




8, -25»(P'l >) 




GOSUB 40 




;F«;- t": 


,U, ]):IF L<65 


234: IF U=40LET U^F 


i:CSIZE li 


3068 


: ■US"A*^"ECH" 


GOTO 3139 




L,K)-(L,K-28 




.8,0 


12 


"B"UA1T 0:BEEP 




GLCURSOR C185, 


OR L?R*650R B= 


<n)+i:n=n+] 


COLOR 8:S0PGN 




iCi^"": GOSUB 


313B:G0SU6 3898 




)-(B, K-28>,0 


3825 


IF H--1H0R J^ 




I : LOCK 




-20):SORGN 


0THEN 1B5 


236:NEXT U:RETURN 


: GOSUB 5E3: 




260:U=UAL C* 


3I39:X)=ABS UAL A 




: RE TURN 




3610 J80SIEP 


1) 


GOSUB 30 


121 


FOR E=S2TO G3: 


183:2=UAL MID* CA* 


240:hCN)=UAL 


RETURN 




: IF U(UTHEN 


*(E,F)»105/U 


3268 


IF F=l GOSUB 




36:LJNE (J, 8 


13 


A=ASC INKEY* : 




FOR F=0TO P:1F 


,U-»1,2J:JF Z<1 


RIGHT* (C*,LEN 


600:B*^1NKEY* : IF 




3060 


*J 




3890 




)-(J, -25T(P', 




IF A=0TH£N 13 




E-G2=0GLCURSOR 


OR Z+NJP+1THEN 


C«-U-*]>:u=U-J« 




3863 


GOTO 3068 


3145: IF X24X1LJNE 


3263 


COLOR Z: IF 




1)),7.NEX1 J 


14 


IF A=JJAND Y>0 




C-FT10, 30): 


185 


LEN STR* H(NJ: 


80]:IF ASC A»<>]3 


3064 


"PC'^mGOTO 


(X2, K-N)-(X1 




UAL 0»(E, F)( 


3638 


LJNE (195, -2 




LET Y=Y-J:GOT0 




LPR1NT F+J 


lB4:A*=LEFr* CA», U 


N=N*j:GOTO 228 


BEEP 2SG0TD 11 




3068 


,K-N)-(X1,K) 




0COLOR 




5*(Pt|))-(J9 




11 


122 


GLCURSOR t-F*l 


) + STR» tZ-*NJ + 


242:L=UAL mo* CC* 


882:BEEP l:GOTO U 


3866 


IF UCABS UAL 


-(X2,K),8 


3265 


IF FOILJNE 




5, 0),0: 


15 


IF A=12AND X<R 




0, 8J:IF B=>0 


RIGHT* CA*, LEN 


,U*l,2;-l:IF L 


2000:A*="RES": 




A*(E, FJLET U 


3155: LINE (J, K-N) 




(XI, Yl-9)-(L 




RETURN 




LET X=X+1:G0T0 




LPRINT A»CE,F; 


A*-U-LEN STR» 


(80ft L?PTHEN 2 


GOSUB 258: U= 




=ABS UAL A*( 


-U->n»K-N?2) 




,K-S) 


3890 


2-2*1 : IF Z>3 




11 




:G0T0 124 


Z>:U=0-»1 


20 


2003: GOTO 88 




E, F) 


-(Xl*fl, K-N*2 


3270 


BLCUBSOR (L- 




LEI Z=l 


13 


IF A=J0AHD Y<P 


123 


LPRINT B*CE,F? 


185: IF LEN A*>U*] 


243:H(N;=UAL A»tU- 





3067 


RETURN 


)-tXl,K-NJ, 8 




2, *'?>■■ 


389S 


COLOR Z: 




LET Y=Y*l:G0TO 


124 


NEXT F: 


LET U=y*j:GDTO 


65, L):U--U+2:N= 


2803:A*^' , LBL":C*^ 


3068 


A*="PEP":C*= 


3)6fl:LINE (Xl-R.K 




LPRJNT ,l i3 , ':x 




RE 1 URN 




11 




GLCURSOR 411,- 


182 


N*l:G010 22B 


'■":GOSUB 260 




■■OUJ-NON: ": 


-N*2)-(Xl-*n, 




1=l:Y1=K: 


3000 


IF R=8LET 62 


21 


IF A^SANB X>8 




4BJ!LPR1NT 


187: IF B=JLET B*tU 


25B:BEEP 2:CURS0R 


:F*=C* 




GOSUB 260: E* 


K-NJ 




RETURN 




=0 : G3--0 : 




LET X=X-l:GOTO 




CHR» <E*65;: 


-65, FJ=0»:GOTO 


22:PRJNT A*: 


28B4: GOSUB 708: U^ 




=RJGHT* (C», 


3165: IF X2<=X1 


3488 


"CE"GOSUB 30 




RE 1 URN 




11 




GLCURSOR (.0,-1 


1S9 


RETURN 


2058:K-0:L=0 




3>:iF E*t> ,, 


LINE -(XI, K) 




50: GLCURSOR 


5010 


A*="GRO":C*= 


23 


IF JX650R A>7B 




02):SORGN : 


188:A*;U-65,FJ^A* 


260: GOSUB 258:G0I0 


: 1^0: GOSUB 6 




UJ-ANO E*(>" 


:GOTO 3135 




(207,55): 




"": GOSUB 260 




THEN J 3 




NEXT E: TEXT : 


189:NEXT F:8EEP 2: 


225 


E3:p=K^L:U^2 




NON" THEN 306 


3178: IF x2tXJ+n 




LPRINT "T "i 




; G2=ASC 


27 


ON A-64GDT0 20 




LF 6: GOTO 11 


GOTO 11 


262:A*^JNKEY* :A= 


100:GOSUB 6E 




6 


LINE -(X2.K- 




F*;" T'lFOR 




LEFT* (C», 1) 




0, 60, 70, 90, 80, 


130 


B«="F]N"i GOSUB 


2B0:AS="CAL , ':GOSUB 


ASC A*: IF A=0 


3 


3063 


GOTO 3892 


(N/(n^(X2-XJ 




L=G2I0 63: 




-65:G3^ASC 




100, 112, 117, 13 




258: U»J34i GOTO 


258:U=202:GOTO 


THEN 262 


2885:J=J1:0^9E93; 


3870 


LINE -(105,0 


)))) 




GLCURSOR (19 




MID* <.C*,3,2 




8, 140, 155, 508, 




800 


880 


263: IF A^IThEN 300 


IF DO0LET 




)-(285,-)10J 


31 95: GLCURSOR (J-» 




0, 49):Z=0: 




)-65 




ZE3, 3E3 


J 34 


UNLOCK :EN0 


282:F0R E-0IO R: 


264: IF A^SAND LEN 


=J80?J'D 




-(100,-110)- 


I.K-2I): 




COLOR 8 


5015 


IF G7>-8AND 


30 


CURSOR 0: IF B= 


148 


A*="DEP": GOSUB 


FOR F^BTO P:C» 


C*>0LET C»^= 


2883: GLCURSOR t28 




(8, J, 0, 


LPRINT CHR* 


3425 


LPRINT A*(L, 




G70RANTJ B3> 




0LET C*=A*(X, Y 




258:U=14l:G0I0 


^B*IE,Fj: IF C* 


LEFT* (C*,LEN 


0,0):LPRJNT 


3880 


JF H=1F0R J= 


(E-»65);STR* 




9>:G2-L:G3=L 




^G2AN0 G3<^R 




):D*""<T-E>".' 




800 


=""THEN 212 


C*-i;:GOrO 275 


"* • , ;F*r' ** 




2110 84STEP 


(F*J>:X2=X]+ 




: GLCURSOR (1 




RETURN 




GOTO 35 


141 


A»="CAS":C4="' 


206:f1=8:FOR Z=1T0 


265: JF A^74LEI C*^ 


2010:GLCURSOR (16 




2l:LJNE (J, 8 


n:J=J-*n:K=K- 




85,-105): 


5828 


GOTO 5018 


32 


C*»B*(X, Y):D*= 




: GOSUB 260 


LEN C»: IF HID* 


■"•iEOTO 275 


0,0>:LPRINI 




)-U*]00,-]] 


N: RETURN 




S0R6N :u=343 


Bflflfl 


FOR E=&210 G 




"<I-F>" 


142 


2=ASC LEFT* CC 


<C«,Z, JJs-t- 


266UF A--13BEEP 1: 


"noyeone : " ;D 




0),2:NEXT J 


3137:"2D"Ul-3250: 




8:r1=8:xi=0: 




3:F0R F=l 10 


35 


PRINI 'X p, ;CHR* 




*, lJ-65:W"UflL 


LET S=Z+J:G0T0 


RETURN 


2820: GLCURSOR (12 


3098 


RETURN 


GOTO 3280 




COSUB 6E3:U= 




p: GOSUB U: 




(65-*X);RJGHT* 




RIGHT* CC4.LEN 


210 


267: IF LEN C*<]6 


0, 0):LPRJNT 


3092 


H=0:1F E»="0 


3138: ■•LI"U1=3268: 




J410: GOSUB 6 




NEXT MNExl 




(" "*STR* <Y-»1 




(C«)-lJ-i:lF Z 


28BJIF mo* (C*, Z, 


LET C»=C*-A*: 






UI-LET H=] 


Z=0 




E3 




EiREIURN • 




), 2J;">-;C»; 




<0OP 2>R0R tl<8 


l>=-"r'LET O^Z- 


CURSOR 5: PRINT 


I: GLCURSOR ( 


3893 


RETURN 


3288:&0SUB 3050:U 


3428 


GLCURSOR (-J 








RIGHT* (" 




OR UjPThEN ]^i 


i:Ftn)--0:GOSUB 


C* 


B8, 0J 


3035 


IF H^IFOR J^ 


^3230: 




05,-288): 










145 


X^Z: Y=U:50T0 1 


214:GOSUB 221: 


268: IF 1NKEY* <.>•" 


2030:LPftlNT Tear 




010 105SIEP 


GLCURSOR (28 




SORGN :NCXT 








6-lEn C»);D*: 






i (n>=j=n=n- J 


THEN 268 






2l:C-(U*U)^J 


7,0):LPRJNT 




L:GOTD IJ 








RETURN 


153 


A«="IRA":GDSUB 


2I0:NEXI Z:h-0:S=1 


263:&0T0 262 


GLCURSOR' (48 




85:G0SUB Ui: 


•t -;f*;- T" 


3438 


n=n-ABS UAL _ / 
A»(E,F): 3/fl 










40 


ON ERROR GOTO 




25B:U^160:GOTO 


:0=LEN C»: 


270:BEEP 2:CLS : 


,0):LPRlNr " 




LPRINT C! 


:LINE (285,0 














278: DJH A»(R, P 




888 


GOSUB 214:r>0: 


PftlNI "Erreur 


CoeT. de «ar 




NEXT J: 


• -(10,8),8 




RETURN /» 


J/\\ 3/ ^ 








;,b*(R, p>, H(7; 


168 


A*^"ftAN' , :C»^'"' 


GOSUB 221 J C#- 


no"iPEEK 30875 


, J-JOI 




RETURN 


3205: IF H-1F0R J" 


3440 


IF UAL A*tr, (3 




SS* 








,F(3), i(3):PR^ 




: GOSUB 268 


STR» J:Z=(PRO 


222HF INKEY* ■•■ 


GLCURSOR (8, 


3837 


GLCURSOR (J, 


0TO 188STEP 




^XBCOLOR 0J*2t 


|tf 








9: RETURN 


16J 


U=OSC C»:A»="P 


)*.5 


THEN 272 


-268j:G0I0 I 




LEN STR* C?6 


36:C=UTJ^180 




GOTO 3443 TO 






60 


A*="Frjp":C*=B* 




fiS":C»="' - : 


2J]:fi*(E,F>=SIp» ( 


273: GOTO 11 






•15):RETURN 


: GLCURSOR (J 


3441 


GOSUB IB9B \ 








(X, Y): GOSUB 26 




GOSUB 260: N" 


(INT (UAL C*TI 


275:CURS0R 5:PRJNI 


2858 :*T-K* UAL A»(E 


3898 


GLCURSOR (10 


i]0, LEN Sift* 


3443 


y./ C 360* ABE \° 








0:B*(X, Y)=C»: 




UAL C* 


0«PR-*ZJJ^10'-PR 


C*JRI6HI» (" 


,FJ;l-l+h 




8-*J,-lI5): 


CI6-15): 




■JAL 0»(C,F)) V 








GOTO 11 


162 


A«^A»(X, Y): IF 




", 16-LEN C*>: 


RETURN 




RETURN 


LPRINT C: 




^rtiN"SJN (X2 


V ®S 




70 


P*="EIJ":C*=A* 




B=)LE1 a*=b»cx 


212JNEXT F:NEXT El 


GOTO 26B 


2100: 1--^J->(CUAL A* 


3)10 


'•30"&0SUB 38 


NEXT J 




'2-*XJ)*25: J" __ 








<X, Y):GOSUB 26 




• YJ 


BEEP Z:GOTO l] 


■J88:P0KE 2B750, 


<E,FJ-PJ"2V 




50:U=3I38! 


3218:GLCURS0R (18 




COS (X7^7':-;;<T> 


^f 






B:A»(X, Y)=C»: 


164 


IF k>48fiND lH5 


2J4iN=0:FOP U-STO 


PEEK 28750*2 


L: RETURN 




GOSUB 3878: U 


, 0):&OSUB 6E 




,,2:> Jki 




/Jilt 




GOTO 11 




0+PAND NJ0THEN 


OrU^ASC niu* <, 


301 : IF JhKEY* IP"" 


3800: JF PJ12THEN 




1=3897: GOSUB 


3: GLCURSOR ( 


3445 


LINE (N, l)-\"<3> 


M" 


80 


A»="I-F":GOSUB 




170 


C*,U, J>: JF 14>4 


THEN 30] 






3095 


-10, -25?<P*1 




N*S1N XITBQ, Jl 








258:B=J:G0T0 1 


165 


IF U>64AND W<R 


7AND U(58rHEN 


302:fl*-^JNKEY* SA« 


38ai:A*»"GRA": 


3120 


GOSUB 3B00: 


)):SORGN I 




T-COS XlTBHJ flf 








1 




-•66AND N>8THEN 


240 


ASC A*: IF A=0 


GOSUB 258: U^ 




GLCURSOR (20 


LINE (10,0)- 


3450 


FOR K-XIIO XT*** 






90 


Mo'T-E'-iGOSUfc 




100 


216: JF UJ64PND VJ<R 


THEN 302 


30J8:GOTD 80 




7,-118): 


(205, 0), 8,0: 




2*XlSTCP 2: / 








258:0=8:6010 1 


166 


GOTO 168 


■•66THEN 242 


383:REST0RE :FOR L 







LPRINT "T '* 


GLCURSOR (0, 




LINE -IN*SIN~7* 










170 


FOR E=X-»NT0 R 


218: JF LJ-40LEI UW 


-1T0 16:READ N 


3810;A*=' , -';C*i"'3D 




F**" |t*in*8. 


-7B):G0r0 11 




KtB0, f+COS K-/ 






10*1 A*> 




STEP N: IF EJR 


)=]<r»:N=N*l:U 


, nr IF N--A(>0*r 


-2D-CE-LI!": 




33:n^B,45: 


3230: IF F=1S0RGN 




>08) 








25B:U-I05:GCrn 




BEEP 2:G0T0 11 


-.FCfm2:n=rn) 


28750, PEE 


K 287 


GOSUB 268:E* 




GOSUB 6E3: 


: GOSUB 3820: 


3455 


NEXI KILINE 











CARRE DIABOLIQUE 



V\C20 



Si le Rubik's Cube n'avait qu'une face, ca serait plus 
facile, non 7 Pas du tout, comme vous allez voir... 

Pascal ESPRIMONT 

Le programme necessity une extension 8K. U est compose de deux 
parties qui s'enchainent automatiquemenl. Mais attention, avant de 
taper ou de charger le programme. lapez POKEJ4.32. ce qui a pour 
effet de (aire debuter le Basic a ladresse 8192. Les explications sur 
le jeu sont dans le programme. Pour arreter une partie. appuyez sur 
F7. One demiere chose: lordmateur n'indique pas si le joueur a cor- 
rectement reconstilue le carre. le choix des figures etant laisse a la 
convenance de chacun. 

PER PROM VIC 20 

1 REM ■■■«*«■•«•■•*•€•••«•*«• 

2 REM *• CPftRCIEPES GERNTS ■• 

3 REM ••*•*«•*••**•■••»•*•••* 

20 FOftI=7169T0?631 POKE! . PEEK'. I+2S600; NEXT 

59 FORi-~t3i";:-;^= reri.r poke i, a ^ next 

180 FORT-OTO' RERDfi 'POKE? 16S*T,R; NEXT 

120 FORT-8T07 REfiDfl P0KE?392*T,H-NEXT 

1 40 F0RT-9T07 RERBR ■ P0KET*7533, R ■ NEXT 

280 FCKE198.7 FO^ES:-: . 76 - S'iZJZ . li~ i;-:E>;.;i, 13 -:.'■■ = i;~ . it r : .-:~ij%->£\2 ->"Eb;b. ; 

3- NEW 

998 REM 

999 REH 

1000 BRTRI0. 10,32. 32. 32-32. 42, 42, 32. 32. 32. 32. 32, 32. 0.233 
1010 DRTR131, 131-35,35,35,35,163, 163.35,35.35,35.35,35,3,255 
1020 DHTR42, 42, 32. 32. 32. 32. 42, 42, 32, 32, 32, 32, 42, 42-0. 235 
1030 DRTR131. 131,33,33,35,33. 131.131.33.33.35,33,131.131.3,255 
1940 DRTR19. 10. 32. 32. 32. 32. 32, 32, 32, 32, 32, 32, 10, 10, 9, 253 
1050 DRTR131. 131. 35, 35. 3. 3. 3. 3, 3, 3, 35. 35, 131. 131, 3, 255 
1960 DRTR42. 42, 32. 32. 32. 32. 32- 32. 32,32,32. 32, 42,42, 0.253 

1079 DRTR3.3. 131.131.35,33,35.35,33,35,131, 131,3,3,3,233 

1080 IifiTfWZ, 42, 32. 32. 32. 32. 42, 42,32, 32. 32, 32. 42, 42. 0,255 
1090 BRTR163, 163,3,3,3,3,131, 131.3,3,3.3- 163,163,3,253 
1109 DflTR«. -2. 72. 32. 32. 32, 42, 42, 32, 32, 32, 32, 32. 32, 0,233 
I llfl DRTR163- 163. 3. 3, 3. 3, 131, 131, 3, 3. 3. 3, 3, 3, 3, 235 

1129 SRTH19. 10, 32. 32. 32. 32, 34, 34. 32, 32, 32, 32, 19. 19, 9, 255 

1130 DflTR131,131,33.35,3,3,163. 163,35,33,33,33, 163. 163,3,233 
1140 DRTR32. 32. 32, 32 32.32,42.42,32,32,32.32,32,32,0,253 
1138 DFUR33. 33, 33. 35, 33. 33. 163, 163, 35. 35, 35, 35, 33, 33. 3, 235 

1169 DRTR10. 19, 2. 2. 2-2. 2, 2, 2. 2. 2-2, 10. 10, 0.235 

1170 ERTR131- 131,3,3,3-3,3,3,3.3,3-3,131,131-3,255 
1190 DHTR2, 2- 9,0, 0.9. 9, 9. 9. 0,32, 32, 10, 10, 9, 253 

1190 DHTR163. 163. 131, 131. 131, 131, 131, 131, 131, 131, 131, 131, 3, 3, 3, 235 
1290 IWTR32, 32. 32,32. 34, 34, 48, 40, 34, 34- 32, 32, 32. 32- 0,235 
1210 DRTR35, 35- 131, 131. 3, 3, 3, 3, 3, 3. 131, 131, 33, 33, 3)233 
1220 DRTR3Z, 32. 32. 32. 32, 32. 32, 32. 32. 32, 32-32, 42, 42.0, 233 
1230 DATA3, 3. 3, 3, 3, 3, 3, 3, 3. 3, 3. 3, 163- 163, 3, 253 
1240 DRTR32, 32, 40, 48, 34, 34, 34, 34, 32, 32, 32, 32, 32. 32, 9, 233 
1250 DRTR33, 35. 163. 163, 33. 33-33. 35, 33, 33. 33- 33. 35, 35. 3, 233 

1260 DRTR32, 32. 32, 32, 40, 40, 34. 34, 32. 32- 32. 32, 32, 32, 0,253 . 

1278 DRTH35, 33-35, 33, 33, 33, 33- 33, 163- 163, 33, 33, 35, 33, 3, 233 J- 

1280 DRTR10- 19. 32, 32. 32, 32, 32, 32, 32, 32, 32, 32. 18, 10- 0.255 

1299 TJflTAl 31. 131. 33, 33. 33. 35, 35, 35. 35, 35. 35. 35. 131. 131. 3. 233 

1300 DRTR42. 42. 32, 32. 32. 32. 42, 42. 32, 32. 32- 32, 32. 32. 0.255 
1319 DRTR131. 131.33.33.33.33,131. 131,3,3,3.3,3.3,3,253 
13£R DATA3. 3- 3- 3, 3. 3. 3.3. 9. 0.0, 9. 0,9. 8, 255 

1338 DRTR126, 253. 219. 234. 127, 219. 255, 126. 69- 66, 133. 161, 161. 153. 66. 68 
1349 DATR8.8. 126.65-66,66,66, 126 

1 REM *♦»*»*♦♦****#**» 

2 REM *DIAE0LIC CRRRE* 

3 REM 

4 REM * AUTEUR: • 

5 REM % F.ESPRIMQNT * 

6 REM •***<0 1994**»* 

19 P0KE36S73.31 PPINT ,, naaa>>»MIREOLES —> SR!' :pRIHT"l»30»liUEU — > SJ1 1 

20 GETA*" rFA(0"P ,, AI-IIiHJC>' , J ,, THEN 20 
>Z- 1FHJ-"F M THEN 6099 

88 F0RT=4693T04645 POKET, 32 -NEXT POt E36367, 58 
m CCSiJS 7788 
97 REM 

93 REM »**«* CHOI* DU NIVEAU ***** 
93 REfl 

109 PPlllTTTKeWJIVERU U OU 2>?"; 

110 GET F-*IFfW0"r , fl"DR*0 , '2* , THENlie 

129 PRINTfif 

130 NC-9:T=VAI_<R*>iONTGO$UB4e88*430B GW4I84 
159 P0K.E36379.28 PPIIITCHPXe) P0^E36378,5 

197 REM 

198 REM »*«nELF!NrjE BLERTOIRE **« 

199 REM 

299 INPUT-flflCDIFFICULTE <8 A 9)", DF POKE36969-207 
219 IFDFC0CtRDF>9THEN209 
215 PRINT-WOT 
228 T=4-OFTT-RHIKl> 
238 H"1^1FTT<.5THENR=-1 





258 FOP2=1TOT:RD=INHRNIK1>*(2*LC-1:>>*1 

260 IFLC-4THENRD=INT<RHTJ<t)*4tl):GOTO290 

278 OHRMOSUB:-ee3.?-9I?.3O29.303a,3?-i9. 3338.3060,3070.3880 

2fi0 GOTO300 

290 ONRD GOSUB3009-3010. 3030, 3840 

300 COSUB 1888 NEXT2 GO3UB5580 

318 FORX-2T0LC-1 FORV=2TOUC-1 GOSUB 2999-NEXTY.X 

320 GOSUB 7090 GOSUB 7200 

339 IFLC-4THEseC3LI67??3 GOTO500 

340 GOSUB 7489 
497 REM 

499 REM »**PRGM PRIMCIPftL *•• 

499 REM 

538 GETflf IFAJ=""THEN589 

519 IFAJ-T'THEH 990 

329 T=ASC(R*> fl=l IFPEEKC653)=lTHENfl=-l T-T*16 

538 IFT<4?CRT>CHTHEH 500 

540 T=T-45: IFLC*:4THEN570 

530 0NTG0SUB3889. 3910,3029- 3339,3040,3950.3069.3870.3839 

369 GOTO380 

5?0 ONTGOS'JE 3r--?'- . :-31?- ■ 7'939 ■ 3940 

5S9 PWE36876/222 POKE36876*«: GOSUB lBSe-GOSUB 2089 

599 NC=HC*l'PRINT ,, *Wa»»C0UF»rHC:G0T0599 

797 REM 

79S REM ***• FIN DE LR PRRT1E •••• 

733 REM 

S89 PRINTTT GOSUB 7288 

510 PRINT'IMMMMXNELLE PRRTIE 81 •" PRINT"«oriEriE PARTIE »r 

-.1?. F-It(T"COt»MFIN 3FW 

S30 GETRJ-3Ffl*O' , l' , R!irjfiJO' , 2 ,, RNDfl*O"F"THEN330 

349 IFHJ="F"THEN P0KE36879.27 PRINT'Tr P0KE36869. 192 R0KE36667. 46 END 

359 IFRJ=~1"THE!ICLR G0T0198 
S55 PRINT'S" : IFt_C=4THEN60SUB 4030 QW-4184 

360 FORX=1TOLC FGRY=1TGLC fl(X, Y)=flR(X, V> : CCX, Y>=CC<X, V) iNEXTY.X 
373 NC=9 GOTO 313 
g9fi ::::::::::::::::: 
997 REM PERMIJTATIONS 

REM IXETTRES; : 
039 ::::;::: :j:: :-.:: : 

1008 B=R'X-1,YJ R<X-l.Y?-fl<X-l.Y*H> R(X-1 . V+R)-R<X. V*R) : A(X. V*R)>RCX*1 . V+fl) 
1018 R(X+l,VtR)=fi<Xtl,V>R(X*l.V)=RCXtl.V-R)'fi<X*l,V-R)-R(X.Y-flVHCX,V-fl)-fi{X-l. 

v-m 

1929 fl'X-l,Y-fl>=B 
[097 :::■■:■:■::■: 
1398 REM 2 COULEURS 



REM RFFICHAGE 

F0RXX=X-1T0X+1 

F0PVY=Y-1T0Y+1 

Q=0M*2T/:';-44*YV RR=0+33792 

Z=fl(XX, W> C0=3+CCXX,YV> 

POKED, Z : POKED* 22, Z*l : FO^EO+1 . Z*2 ■ PCr<E0*23, Z+3 

POKERR, CO ! POKERR+ 1 , CO : POKERR+22 , CO i P0KERR*23, CO 

NEXTYY.XX 

RETURN 

X»2'Y-2- RETURN 

X-3Y-2: RETURN 

X-4-Y-2: RETURN 

X-2:V-3" RETURN 

X-3 ■ Y=3 l RETURN 

X-4-V-3: RETURN 

X-2'Y-4: RETURN 

X-3 rV»4= RETURN 

X=4-V-4- RETURN 

REM 

REM "I««INIT1RLISRTI0N£ *»• 

REM t* N1VERU 1** 

0H-' 184 = LC-4 : CH-52 ■ GOSUB3099 

D(l)"8'D(2)»2-D(3)«4:DC4>-6 

F0RX-1T04:F0RY-1TD4 

C(X.Y)-D(V> RrX.V)-38+4*<X-l*4*<Y-l>>:HEXTY-X 

CJW-4194:FORX-2TO3:FORY»2TO3'GOSUB2890 NEXT NEXT W=42T3 CV-3801B-OOSUB 7810 

RETURN 

OHM 184 i LC-3 ■ CH-57 i OOSUB3088 

D(n"0:DC2)»2:Dt3)«7-I)C4}-6.D<5)-5 

F0RX-1T03-F0RY-1T03 

R(X,Y)-39t4*(X-l>-C(X,V;»DCY>-NEXTY,X 

RETURN 

DIMR(LC.LC>.flR<LC-LC>,CaC,LC),CC(LC.LC);RETURN 

FORX-1TOLC-F0RY-1T0LC 

Rfl(X,Y)«RCX,V).CC(X.Y)-C<X-Y):NEXTV,X 

RETURN 

REM 

REM *»PRESENTRTION & RtULES ** 

REM 

P0KE36B79.12 



Suite page 18 



SORTILEGE 



FX 702 P 



II y a longtemps, vivait dans un chateau ie magicien 
Sarto. Depuis son esprit rode toujours a I'interieur de 
son domaine et certains disent meme qu'il ne serait pas 
mort... La legende dit que le magicien possedait un 
livre, qui apporterait richesse, sagesse et puissance... 



Serez-vous capable de retrouver ce livre dans la tren- 
taine de pieces qui constitue le chateau en evitant les 
pieges et sans vous perdre? Vous pouvez toujours es- 
sayer! 

Olivier DROUILLARD 



On se deplace a I'aide des touches: 

N: vous marchez devant vous. S: vous retournez sur vos pas. 0: 

vous courez a gauche. E: vous tournez a droile. M: vous moniez. D: 

vous descendez. F: vous fouillez. 

N'oubliez pas que les croix tuent les vampires, quo les portes s'ou- 

vrenl avec des c!6s... 



LIST 

i vk it^mm 

6E "-«flll BiFOF 
[-1 10 UJfOB 
Ml 10 W -STE 
f -1 

2 m esc fljHis« 
,l)ifHEtl una 

! C:C=31::!0P ! 
FPI : 6010 2? 
8 IF R=i;PP; "VK 

s rres whs •; 

n PPI s 

12 IMffsIF W>" 

[HEH 12 

13 KT i IF Rt-"H" 

TO T 
15 IF Ah"?" TO 

U 
II IF «l="0" TO 

II 

15 IF M---<" 1HEH 



I! 
2! IF flt= :, F" TO 

■< 
23 IF «t="D" THEII 

2 

25 IF f)i=T THEN 

26 SOTO 8 

27 6SB C:»="DEVnHT 

LE CHATEfilJ"iT= 
23:R=l:60T0 I) 

28 8SE C:J="LR COO 
R":X=38:H=3^: IF 

0=15T=3I 

29 SOTO U 

38 856 C:t="L 9PK0 
RER1E"=U=28:«=3 
6:X=38:SOT0 V 

31 6SBC:|="LEP.EF 
ECT0IRE":ll=2«:V 
=48l)!=36:6OT0 H 

32 IF PBNIi.f TO 



42 

33 SSB C: *="UHE CH 

fi»BPE":U=34:V=4 
8:60TO U 

34 SSB C:*="Lfi 818 
LI0THESUE":X=32 
:H=64:U=23:S0T0 

Y 

38 658 C:t="lE 60H 
JOH.ESCBLIER":Z 
=44:U=38:60!0 1 

33 6SE C:)="L8 CHI 
SINE":Y=39:U=38 
:6010 H 

39 !="«: OH V OORT 
":R=l:6OT0 U 

48 SSB C:t="UHE BR 
M0IRE":H=58:U=3 
|:60TO 1 

42 PRT "IJHE 0UBL1E 
T1E":60TO 52 

44 IF H=8 IHEII T2 



46 6SB C:)="L E5C8 
LIER":S=36:X=55 
:S010 '( 

43 l="UHE CLE":0=1 
:R=l:60T0 U 

58 SSB [::!="LE Lfl8 
0RBT0IPE":y=3l: 
H=57:G0T0 Y 

52 PRT "Lfl SHLIE 
ES H0RTS:0ECBPI 
IE";" PAR SARTO 
":EHC 

55 PRT "EHFER(IE:HO 
RfiEHl 

5? 6S8 C:l="0H PAS 
SH6E SECRET": H= 
83:1=52*I:S0T 
OY 

59 658 C:)="IR 100 
R ESTsESCflLIEfi"* 
:2=6l:U=58:60T0 

U 



61 6SB C:t="LE S00 
TERRAIMiUKE CLE 

":E=l:S=59:2=55 
:T=B5:6010 II 

64 8SB C:l="0H RPF 
H?.TEHEHT":l=42: 
U=34: IF L=1IX=6 
6 

65 60T0 S 

66 6SBC:l="LA TOO 
R S0T)":X=68:0=6 
4:60T0 Y 

68 6SB C:l='LB TOO 
R HORD": 11=66: Y= 
??:X=78:6010 S 

78 SSB C:t="UIIE PI 
ECE SECRE'E":Y= 
79:0=68:60TO II 

•72 PRT "VOUS VOUS 
REVEILLE2 DBHS 
LE";" F05SE:V0U 
SE1ES LIBRE.!' 



75EH0 

77 l="«: BBRCHE^R 

=l:60T0 26 
79 mil 38:F0R 6=1 
10 5:RR1 "LE L 

IVRE":PR1 :HEXI 
S:H«!I 8:H=8:6 

010 78 
81 T=26:U=T:V=U:X= 

«:Y=:4:2=Y:S=Z:R 

=8: RET 
83 6SB C:t="UHEBH 

TICHAHBRE":U=59 

HM2HMH0*e 

010 Y 
85 6SBC:l="UIIC0U 

L0IR":l=32:U=61 

:*=87:60TO Y 
37 6SB C:l="UHH0H 

IE CHBR6E":S=89 

:Z=87:U=85:6OT0 
Y 



89 SSB C:)="UH PAL 
IER':U=87:H=98: 
!=9l:E=93:R=l:6 
010 Y 

98 8SB C:f="UH C0U 
L0IR":1=93:0=l: 
X=95:0=89160IO 
Y 

91 IF 0«l;PRl TIN 
VBHP1RE VS WE" 
:EHt 

92 6S8 C:PRT "VAHP 
IRE mH:UNE CI 
E":l=l:6010 89 

93 PRT "ECRBSE OflH 
S LE FOSSE": EHO 

95 SSB C:t="UHE 81 
BLI01HEOUE":X=9 
7:Y=99:U=90:60! 
OH 

97 6SBC:t="UHE SA 



LLEiUHE CROIX": 

»=I:U=95:60I0 H 

99 PRT "EXPLOSIOH: 

ltORI":EHD • 




DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prixau MEILLEUR LOGICIELdu MOISet un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
lormule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitraire, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
OR1GINAUX et FRANCAIS. Si 
votre programme n'est pas tout 
a (ait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pou voir nous le 
proposer a nouveau. 



Pour participer, il vous suff it de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a ('utili- 
sation de ce programme. 
Bonne chance! 



Reglement 

ART. 1 HEBDOGICIEL organise 
de facon mensuelle el Irimes- 
Irielte un concours dole de prix 
recompensant le meilleur logi- 
ciel du mois ei du tnmestre 
ART 2 Ceconcoursest ouverta 
loul auleur de logiciel quelque 
soit le materiel sur lequel il esl 
realise. L'envoi d'un logiciel en 
K 7 ou disquelte accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuilement sur de- 



mande par la redaction de notre 
journal constilue facte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualile et de I'originalite les logi- 
ciels qui sont publies dans le 
journal 

ART. 4 ■ Ce sont les lecteurs qui. 
par ieur vote, determinent les 
meilleurs logiciels mensuel et 
trimestnel. 

ART. 5 Le prix alloue pour le 
concours mensuel sera remisau 
plus lard un mors apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestnel sera remis 
au plus lard un mois apres la clo- 
ture du concours trimeslriel 
ART. 7: Le presenl reglement a 
ete depose chez Maitre Jauna- 
tre.l.ruedesHalles 75001 Paris 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'mlerrompre a toul 
moment le present concours en 
en avisant les lecteurs un mois 
avanl. 

ART 9 : La participation au con- 
cours enlraine I'acceptation par 
les concurrents du presenl re- 
glemenl. 



HEBDOGICIEL: 27,1 

FOY- 75008 PARIS 



le du Gal 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritism*"; 'pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom : 

Prenom : 

Age : Profession : 

Adresse . 

N° telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation ni une 
copie d'un programme existant. Ce programme reste ma propriete et 
j'autorise HEBDOGICIEL a le publier. La remuneration pour les pages 
publiees sera de 5000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette} accompagne d'un descnptif detaille du materiel utilise, 
d'une notice d'utilisation du programme Les supports des program- 
mes publies son! c onserves , n'oubliez done pas den faire une copie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi. listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'mdiquant sur votre 
Bon de Participation 

• N'oubliez pas et ceci est tres 
important, d'mscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM. voire nom, le nom du pro- 
gramme etle materiel auquelil est 



destine Nous pourrons ainsi re- 
perer lacilement les listings, une 
fois sortis de f imprimante. 

• Duphquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme Nous aurons plus de 
chance d'amver ale charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En cequiconcernelesbonsde 
participation, mettez votre adres- 
se complete el votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi lei que "petites 
annonces". "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 



• Expliquez les particularites de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evitez de nous envoyez 
lesjeux suivants : BIORYTHMES. 
MASTERMIND. PENDU, TOUR DE 
HANOI, CALENDRIER, BATAILLE 
NAVALE. POKER. JACKPOT, 
BOWLING. BLACK JACK, LABY- 
RINTHS. MEMORY SIMON, 421. 
OTHELLO. SOLITAIRE. LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, Ieur livre "autour de la bou- 
cle" de Janick TAILLANDIER. 



RECOMMANDATIONS 
PARTICULIERES 
AUX POSSESSEURS DE 
TRS 80 

Indiquer avec precision le mo- 
dele d'ordinateur auquel le pro- 
gramme est desline. Si le pro- 
gramme est enregislre sur 
casseltes utilisez obligatoire- 
ment la Vitesse de 500 bands, 
meme sur un modele III. 
Dans tous les cas oil le pro- 
gramme est enregistre sur cas- 
sette il faut avoir utilise la Vi- 
tesse de 500 bands et non, en 
particulier, la Vitesse de 1500 
bands du modele III. 



Date limite d'envoi du bulletin de vote le 
Vandredi 2 Novembre a minuit. 





N°50 


N°51 


N°52 


N°53 


APPLE II 


Caractaide 


Editeur General 


Finder 


Touches de fonctions 


CANON X-07 


Jump 


Tron 


Patrouilleur de I'espace 


Puzzle 


CASIO FX702-P 


Manoir 


Gambler 


Gambler 


Gambler 


COMMODORE 64 


Idees 


Mac Pan 


Mots croises 


Maze 64 


COMMODORE 
VIC 20 


Vic fute 


Pingouin 


Vic Jump Frog 


Chevauchee (antastique 


HECTOR HR 


Caracteres 


Envahisseurs 


War Game 


Hectographe 


HP 41 


Alpinisme 


Invmat 


Blbflo 


Nimbus 


MZ 


Urania ll 


Urania II 


Take liberty 


Chenille 


ORIC1 


Maxtt 


Toutancarton 


Pech'Oric 


Pieces en vrac 


PC 1251 


Synthetiseur 


Agenda 


P'tit Chinois 


Bataille aerienne 


PC 1500 


Alzan 


AventurierX 


Monstres et merveilles 


Caracteres 


SPECTRUM 


Secret dela momie 


CGAO 


Pedro 


Mur 


ZX81 


Confiance ? 


Dr. Logic 


Laby3D 


Roulostop 


TRS 80 


Logic/conversion 


Police Defi 


Police Defi 


Jeu de Des 


Tl 99/4 A 

(basic simple) 


Ring 


Asterix 


Maitre du donjon 


Vengeance du Prince 


Tl 99/A A 

(basic etendu) 


Espace clos 


Debarquement 


Space War 


Voleurdediamanls 


TO 7 


War black 


Dclosattaque 


Burger 


Portrait 



AUX URNES ! 



Abandonnez quelques instants vos claviers et prenez vo- 
tre plus belle plume pour remplirle bulletin devote ci-con- 
tre. La redaction d'Hebdogiciel compte sur vous ! 
La marche a suivre est simple ; 

- Reperez dans la grille ci-contre le programme pour le- 
quel vous voulez voter ainsi que celui pour lequel vous vo- 
tez en second (le second nous permettra de rendre plus 
equitable la formule de choix. du gagnant). 

- Reportezle nom decesdeux programmes surle bulletin 
de vote. 

- Inscrivez vos nom et adresse sur le bulletin de vote. 

- Expediez-le a HEBDOGICIEL, CONCOURS MEN- 
SUEL, 27 rue du General Foy 75008 PARIS, avant le 
Vendredi 2 Novembre. 

II est fort probable que ceux qui participent au concours 
feront voter Ieur papa, Ieur maman, Ieur cousineet la tota- 
lite de leurs amis et relations pour Ieur programme. Nor- 
mal ! Mais comme chacun d'eux fera la meme chose, cela 
n'est pas bien grave ! Toutefois, toujours dans un souci 
d"equite, nous n'accepterons que les ORIGINAUX du 
BULLETIN de VOTE ; pas de photocopies, cela serait trop 
facile ! 



BULLETIN DE VOTE 



A renvoyer avant le 2 Novembre minuil a HEBDOGI- 
CIEL, concours mensuel, 27 rue du General Foy 
75008 PARIS 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME: 

NOM ET PRENOM : 

ADRESSE : 



-nouveau 



DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 



u LIMMOHOl 



>^^.i,v TUElOfTHt 



Nous avons selocllomie pom vous les mefllou.s loolclels actuetlomonl disponing, e„ France Nous no 
preiendonspasi,uecottcilsieestcoiiipioleotdo.uililveoillestovi, l.nlgu , .,r,,/,,,,,,.,„„«,o™iio 

rem.nl des programmes. Pourlunl. vous chorclioro, en vain ce.lalns program,,,,.., ,,„ip, „,„„„,"■„ 

e reputation et (Jul se vender,! surtout grace a, apuullclte el , ,„x cu„. ,-, , •,,!,■., „.,„,,.,„. uutueueu- 
He'odo aS |cll"so'/lw«'°o'' S '" S '° ' c ''" s '"•P on ""«, "»«« »™(n clasad a pari „os propres produlls . le. 
Les pflx soul, nous resperons. /es oiollteurs du marche el los abonnes - anclens ou nouveaujr - benefl- 
cleul en plus d'une remise de 10 %. SI vous elcs nomc.reu» i nous sulvrc dans ,,-:,.- ,„„.,lonco ool 

■opldeniaal aiilver . i la.tf Ij.ussui les larils des lournlssouispouiattoi.iu,,; rol,,,»„i„„,.„o„s 

Ties l/xe.raniener les pilx a one plus /usle va/eurl 
les classements so.it lulls en lonctlon dc I'lnterc! do programme el no llonnent pas comple des prl* 

u°i u f/?.".' ££9? ! , "i"; ,'"""' ft* h*p«h» N r ouwi M w «ri „,c-,„e pn „„,.. si ,„ „pp„„ ,£„,,: 

te/prlx est mauvals. leloglclelne peut llouiei dans celte page/ 



pouiron 
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BON OE COMMANOE A DECOUPER OU RECOPIER 
SHIFT EDITIONS jr. rue ou Gal For 750OS PARIS 
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LE SECRET DU CHARPENTIER 



Le secret du charpenlier est un jeu de type taquin. le 
but est d'amener la grande plaque de forme carree (qui 
se trouve dans le coin superieur gauche de I'ecran en 
debut de partie) dans le coin superieur droit. Pour se 
faire, on doit deplacer les differentes plaques. 

D. VAN DE KERKHOVE 

Pour deplacer une plaque, ii faut d'abord placer le curseur dans le 
coin superieur de celle-ci au moyen de quatre fleches. Ensuite. on 
appuie sur [3 louche SHIFT en meme lemps que sur la fleche cor- 
respondant au deplacemenl desire. Au debut de la partie, on a la 
possibility 0" avoir un resume du mode d'emploi ainsi qu'un exemple 
de solution. 



■ LE SECRET DU CHARPENTIER -••-*••• 



1 DU TYPE CA5SE-TETE PROPOSE PAR 
OIDIER VAN DE KERKHOVE 
19. CHAUSSEE DE DOUAI 
75B0 TOURNAI (BELGIQUE) 



1.5. 5.E.7.B. B.9.6. 1 



150 FOR J-BT03 
168 FDR I-OTO* 
170 READ TCI, J) 

190 NEXT 

200 IFTDBTHENRETUR*' 

2!0 '— CHAINES DE CARACTERES— 

220 DIMBXA) 

230 FORJ-lTD2:Al(0t-CHR*(.ift0>-CHR»il79)'FaRI-lTDll'A*' 

»[01:NEXT:AtKl>-R«U>*CHR*<140)*CHR»(2&>*STRING»<23.24 

R»"t79)*CHRt.l!ftB):FORl = lT011:A» , l)=A*CI)»A*<0):NEXT-A« 

CHR«<179)-CHRH26)-STRING*(23. 24) i NEXT 

2*0 C»-LEFT»IA*(1). Ift1):A»(B)-CHR*C13I )*CHR»< 140> -FORI" 

C**.A<(0):. NEXT :C*-C**CHR« 1131) 

250 ■-" 

.24>iA«<B)-CHR*(191)*STRlNG»(9. 32>+CHR«(191)*CHRK26>*STRINC«r:iI 

. 24>iF0RI-lT02iA*<2)-QtCI>.0»CB> :NEXT(m(2>-A*(2>*CHR»U43>*STRI 

««t9. t40)»CKR»ll43) 

270 ■-•- 

280 A*<4)-LEFT«<A»(2).23)iF(»I-IT06iA*<4>-A«(*J»A*<e)iNEXTiA«(4) 

-n*':*ii»RiGHT»<A»<2>,ii> 

290 '■■■ 

300 A*C3)-CHR*U91)*STRINGt<21. 131 )*CKR*C 191 )-CHR«<26) *STRING»C2 
3. 2ft)'At<0>-CHR*<191>*STRING«C21.32)*CHR»(191)*CHR»(26)*STRIND»( 
23.26)!FORI-lTO2IA»C3)-n*(3)*n*(0)iNEXTIR*(3>-fi*C3)*CHR«(llV3)*ST 
RING»<21. lftB)-CHR*( 103) 
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320 


m-- 


IMPOSSIBLE" 






330 


FOR 


■1T0LEN(N») 






"Ufl 


M» = M«*MID»CN*». I. 1 >'CHt» 


26>*CHfl*<24 




rna 


NEX' 








M» 


■— 








3B0 


FOR 


-ITO10 










l*CHR*(32>*CMR»(26> 


CUR* < 2ft) 




aee 


rex 








Aiia 


RH*> 


STRING«U2. 32) 






CM 










4*0 


FDR 


-tT03 






430 


BV«- 


BV*«CHR1C32>»CHRTK2S>*STRING*U 


24 



ftS0 NEXT 

t.70 ev«-ev«*sTRiNo»(i.32) 

400 *— --CALCUL DCS POSITIONS D'AFFICHAGE DES BLOCS--- 

090 FOHJ=0TO3 

500 F0RI-BT04 

510 Pf I.J)-J-256*I»I2 

320 NEXT 

530 NEXT 

540 ' "-INITIALISATION POSITION DU CURSEUR-" 

55B 'mmmEX DES DEUX FORMES DU CURSEUR — 

SGO CI-B 

570 CJ-B 

SE* C«'B)=CHR*I1E3>'CHH«(I87) 

590 C«'1>-CHR»'13G)*CHR«(132> 

680 ' — 

610 DOSUB 11301* PRESENTATION 

620 ***• FIN £>ES INITIALISATION ET DEBUT REELLE DU JEU **- 

630 GOSUB 1000: ■ DESS1N SITUATION DE DEPORT 

640 '■=• ATTENTE COMMANDS " = 

650 CC=I 

660 C°CJ-256*CI*12 

670 PRINT3C.C»<CC>- 

EBB CC=CC*1 

690 IFCC-2THENCC0 

70a DI=0'DJ-B 

710 FI=B:FJ-0 

720 T=PEEK(1440B) 

730 IFPF£K<14464)-1TH£N79B 

740 IFT-32TKEND I — I : COSUB 1 690 : GOTQESO 

750 IFT-EftTHENDI-1 :GOSUB1690:GOTOEE0 



Situation de depart. 



Exemple de situation gagnante. 



760 IFT-16THENDJ-1 : 

770 IFT-a THENDJ— l: 

7BB GOTO660 

790 IFT-32THENFI — I'OO5UBlB70iGOTO6&B 

800 IFT-64THENFI=l iOOSUBie7B:DOTD660 

B10 IFT-16THENFJ=1 :D03U8I67B:G0T066O 

B20 IFT-8 TKENFJ— 11ODSUB1B70-DOTO660 

B3B GOTO670 

eao ■— TEST SI GAGNE * CQMPTAGE DE5 DE PLACEMENTS"' 

850 CO-CO* 1 

860 PHINT359.STRiCC0>* 

B70 rFTIIOTHENRETUR-JELSEIFTfft.ai-lTHEMCLSiPRINTSB.-'BROUO, VOUS ( 

VEZ REUS5I EN-:COI"COUPS-I-FOni-lTO2000:NEXT:END 

880 RETURN 

S90 '"=AFFICHAGE 'IMPOSSIBLE" SI DEPLRCEMENT PAS FAISABL£=" 

9eB FORJ^ITOIO 

910 PRINT3190.nl: 



920 f 



RI-1TI 



930 NEXT 

940 PRINT3130.N 

950 F0RI-1T03B 

960 NEXT 

970 NEXT 

980 RETURN 

g9B ■-— DESSIN 



IB 



1 CLS 



DE LA SITUATION DE DEPART*- 



110 PRINT3P(0.0).A«<1. 
1020 PRINTC*! 
1B30 PRINT3P«2.0).A*(2: 
IB40 PRINT3P<3.0).A*(3: 
1030 PRINT3PC2. 1). 
JB6B PRINT3PC3. 1>.A»<3: 
1070 PRINT3P(0.2>. AtH 
1BE0 PRINT3PC1.2).0»(6: 
1090 PRINT3PC3.2). A«(4; 
1100 PRINT3PCft,2>,A«(4 
1110 RETURN 
1120 '■ 
113e CLS'PRII 
CHARPENTIER' 
llftB PRINT389E. "VEUX-TU QUE JE 



FDRI=0TO450STEP4!PRINTai." LE SECRET DU 
EXPLIOUE LE BUT DU JEU <Q OU N) 



1 130 CAt»-INKEY»" IFCB«--0-'THENGOSUBl 200ELSEIFCO* <) "N-G0TO1 150 
1160 PRINT399G. '■VEUX-TU QUE JE TE PONTRE UN EXEMPLE DE SOLUT 

IDN CO DU N) ?"1 

S CA*»-INKEY»:IFCAt»-"O"rHeNCA»--"ICDSUBlft60ELSEIFCA«<)"N-GOTOl 



i -FORI -1T01 BOO 1NEXTI RETURN 



170 

USB CLS:PRINT3290. "SONNE CHANCE 
119B '—EXPLICATION DU JEU 
12B0 GOSUB1000 
1210 FCRI-1TO2000INEXT 
1220 FORI-2ftT032ftSTEP64 
1230 PRINT3I.CHR»(30) I 
1240 NEXT 

1250 PRINTCHR«C31>t 
1260 FaRI-2I5T0233iPRINT3I.CHR*<l 
F0RI-lT03'PR.'NT3232-I*67.CHRtX131 
. CHR»< 176) ICHRK 140)1 CHR»( 131) I i NEXT 
1270 CA«--LE BUT DU JEU EST D'AMENER LE GROS BLOC DU COIN SUPERI 
EUR GAUCHE DE L" EC RAN BU COIN 5UPERIEUR DROIT ET CE. PAR DEPLA 
CEMENTS SUCCE5SIFS DES DIFPERENTS BLOCS SE TROUVONT SUR L 

' EC RAN - 
2B0 FrjRI»lTO40iPRINT3I*5*635,MIO»<CA*. I»5-ft. 5> 1 iPRINTSI. A»t I) IC 

8V»lSU235.BV«l 1NEXT 
29B PRINT3973. "TAPER (ENTER* POUR CONTINUER ..."I 
3B0 IFPEEK<14400)-1ELSE1300 
310 CLS 

320 PR INT "COM** ANDES, :"JPRINT 
330 PRINT-DEPLACERENT DU CURSEUR «" 
34B PRINT. CHR«<91) :- VERS LE HAUT- 
350 PRINT. CHR*<92>T- VERS LE BAS" 
360 PRINT. CHH«<93)i" VERS LA GAUCHE" 
37B PRINT. CHHK9ft)i" VERS LA DROITE" 
3B0 PHINTiPHINT-DEPLACEMENT D* UN BLOC I" 

VERS LE HAUT- 
VERS LE BAS- 
VERS LA GAUCHE" 
VERS LA DROITE" 
'ER (ENTER) POUR CONTINUER"! 
440 IFPEEK(lftft0B)-lTHENCLSiP'1INTCHRtK23»;"RETURNEL5Elft*0 
450 *="- SOLUTION 
460 CI-2:CJ»1 

470 O»(0)""55BaS5027124413E3I65BB5036631'.114I1412772277285B0303 
663141341 1472B55a;631 441 1 4ft 1 27205530641 27720ta36Ej;6631612772050 
363361 3E31 44 I ':! 2'.. 7L ?Z-jZ:ZT.;r_'7::\ . ',1.1 :t;,\ , .?,ZS7-r.?r<-c, ^:ui 14127722772B3 
3300503E63 1411431 63363035027" 



390 PRINT, 


'(SHIP 


t> "ICHRfOI 


400 PRINT, 


■(SHIF 


') "1CHRK92 


410 PRINT. 


'(SHIP 


') "1CHR»(93 


420 PRINT. 


'(SHIF 


■) "lCHR»(9ft 


430 PRINTS 




RPER (ENTER) 




TRS80 



1480 


GOSUB1OB0 










1*90 


F0RT1 = 1T0LEN(A»(B)) 








1580 


DI-0:DJ»B 










131B 


FI-OiFJ-0 










1320 


A-VAL<MID»(A» 


0).T1. 








:5T3 


IF0-333THENRETURN 










IFO.0THENDJ— 


1G0SUG 








issa 


I FA- 1 THENDJ » 


'GOSUB 


esb 






1360 


IFA-2THENDI — 


iGOSUB 


690 






1570 


IFA=5THEND1p= 










1580 


IFA=4THENFJa- 


:G0SU8 


S7B 






1390 


IFA'STHENFJ-- 










ISM 


IFA«ETHENFI=- 










161 a 
1620 


NEXTI1 


: GOSUB 


E7B 






1630 


RESTORE :GDSUB1 50 








1640 


CI-B-CJ«B 










1SS0 


CO-0 










1660 


TI»B 










1 670 


RETURN 










1680 


•mm. DEPLACEP1E 


«T DU CURSEUF 


















1700 


TI-CI 










1710 


TJ-CJ 










172B 


TI-TI.OI 










1730 


TJ-TJ.DJ 










1740 


IFTI (BORTI)ftOI 


TJ (0ORTJI 3THENRETURN 




IFT<TI,TJ)-XTHENI72B 








1760 


IFTDOTHENIFTi 


ri-l.T. 


>=T<TI 


T.I 






IFTJ1BTHENIFTI 


TI.TJ-I 


)-T(TI 


TJ 


THENTJ-TJ 



i-OTHENIFT(CI-: 



'-D-OT 



178B IFTlli 

1790 IFT ( CI. CJl>BTHENPRINT.-_, STRING* f2, 32)1 

1800 IFT(CI.CJ)"lTHENPRINT3C.CHR*(14B)iCMRK179): 

1810 IFT< C I. CJ) ) ITHENPRINTSC.CHRid 91 >:CHR»{ 131 )t 

1820 CI-TI 

1B3B CJ=TJ 

1840 RETURN 

1850 ' »" -DE PLACEMENT d'UN BLOC"- 

1860 ' • -TEST SI DEPLACEHENT VALABLE 

1870 X"T<CI.CJ) 

1880 IFCI=ftTHENLH«l IG0T0198O 

189B IFT<CI-1.CJ)-XTHENLH-2ELSELH"1 

19B0 IFCJ=3THENLV"1 IG0T0192O 

1910 IFT(CI.CJ*1)-XTHENLV-2ELSELV-I 

1920 IFFI-1THENIFCI-LH(5THENIFT<CI*LH.CJ>=0TH£NIFT<CI»LH.CJ.LV-I 

)-BTHEN1990 

193B IFFI — 1THENIFCD0THENIF1 

HEN 199 B 

19ftB IFFJ«1THENIFCJ*LV(4THENIFT<CI.CJ-LV)-BTHENIFT<CI»LM-1.CJ*LV 

>-OTHEN1990 

1950 IFFJ— irHENIFCJ>BTH£NIFT(CI.CJ-l>-0rHENIFT(CI*LH-I.CJ-1l-BT 
HEN 199a 

19E0 GOSUB9H0 

1970 RETURN 

1980 * -DEPLACEMENT BLOC 

1990 BB-X 

2000 IFDSTHENB8-4 

2010 IFX-5THENBB-3 

202B IFX=4THENBB-2 

2030 IFFI OBTHENS-1ELSES-64 

2040 IFFI(BORFJ(0THENS— S 

2B30 FOR!-P(CI.CJ).S TOPiCLFI. CJ'FJJSTEPS 

2060 PRINTHI. A«(BB1 IS IFBB-lTHENPRINTC»t 

2070 IFS-lTHENPR[NT3I-l.BV«llIFLV2THENPRINTai*255. BV»I 

2080 IFS— irHENPRINT3I-l»i2-LH.BV»HIFLV-2THENPRINTai-l*12.LH»23 

S.BV0I 

2090 IFS»64THENPRINTai-64.BH»lUFLH-2THENPRINT3I-52.BH»l 

210B IFS=-E4THENPRINTai»256*LV. BHttt 1 IFLH-2THENPAINTai*236*LV*l2. 

211B NEXT 

2120 T=B 

2130 FORI'OTOft 

2140 FORJ»BT03 

2150 IFT<I. J)-XTHENTI<T)-l!TJ(T)-Jtr«TtlITf I. J)-0 

2160 NEXTJ 

2173 NEXT I 

21B0 TI(T>=-1 

2190 FORT-0TO3 

2200 IFTI(TI--lTHENT-3*NEXTtGOTD2270 

2210 IFFI-1 THENTHT)»TKT)+1 

2220 IFFI=-1THENTUT)-TI(T>-1 

2230 IFFJ-1 THENTJ(T)-TJ(T)*1 

2240 IFFJ--lTHENTJ<T>-TJtr)-l 

2230 T.THT), TJ(T))-X 

226B NEXT 

227B CI-TI(O) !CJ-TJ(B> 

228B G0SUBB5B 

2290 RETURN «> 



MISSION IMPOSSIBLE 



Pas de doute, cette mission va vous en faire voir de 
toutes les couleurs: certaines des cibles sont a tou- 
cher, mais pas toutes... et votre temps est compte! 
Bons reflexes. 

Paul Andr6 KUEHN 



Mode d'emploi: II faut gagner 30 points grace au canon tirant a 
droite (5} on a gauche (6). 




HP 41 



18:86 15.34 


17 XOF 


34 FC 96 


51 ,211327 


68 X«8' 


85 USE 91 


182 X<8? 


119 I 


136 FRC 


81«L8L ■HI" 


18 • •' 


35 XE8 81 


52 ♦ 


69 GTO 88 


86 FC 87 


183 TONE 8 


129 FS' 95 


137 199 


82 FIX 8 


19 flVIEU 


36 8 


53 FRC 


78 1 


87 TONE 8 


184 X>8? 


121 CHS 


138 • 


83 CF 29 


28 XEO 98 


37 RCL X 


54 STO 88 


71 FC 85 


88 "SCORE : ■ 


195 TONE 9 


122 FS' 86 


139 -OPRES 


84 TIKE 


21 XEO 88 


38 TIKE 


55 18 


72 CNS 


89 flRCL 81 


196 RTN 


123 CHS 


148 INT 


85 STO 82 


22 ♦ 


39 9 E-5 


56 • 


73 ST» 81 


99 RVIEU 


187»L8L 83 


124 ST* 81 


141 ARCL X 


96 FRC 


23 X=8' 


49 WIS* 


57 INT 


74 XEO 92 


91 RCL 91 


198 SF 97 


125 XEO 82 


142 -F KIN 


87 PI 


24 SF 85 


41 RVIEH 


58 2 


75 SF 97 


92 XiS' 


199 1 


126 RTH 


143 LflSTX 


88 » 


25 XEQ 88 


42 TONE 5 


59 MOD 


76«LBl 99 


93 CTO 85 


118 FS' 95 


127«L8L 85 


144 FRC 


89 3 


26 X=8' 


43 "ttT" 


69 RTN 


77 5 


94 38 


111 CNS 


128 "PERDU- 


145 188 


ie in 


27 SF 86 


44 xYzmn 


61»L8L 91 


78 X=V> 


95 X«V? 


112 FC 96 


129 RVIEU 


146 • 


11 FRC 


28 an 


45 9 


62 1 


79 XEO 93 


96 CTO 88 


113 CHS 


139 TONE 1 


147 INT 


12 STO 88 


29 FS' 86 


46 STOP 


63 FS' 95 


89 1 


97 "BRfiVO- 


114 ST* 91 


131 TONE 8 


148 RRC1. X 




39 XEQ 91 


4?«L8L 99 


64 73 


81 * 


98 RVIEU 


115 XEO 92 


132«LBL 86 


149 "> SEC 


14 STO 81 


31 FC? 96 


48 Ra 99 


65 XTOB 


82 X=V? 


99 BEEP 


116 RTN 


133 TIME 


158 flVIEU 


I5HBL 88 


32 " " 


49 9821 


66 RTN 


83 XEO 84 


188 CTO 86 


U7»LBt 94 


134 RCL 92 


151 .END. 




33 "F • 


58 • 


67«LBL -T- 


84 FC 07 


18ULBL 92 


118 SF 97 


135 HNS- 





PARALIZ-MAN 



Manger des pilules avec un joystick, ce n'est pas si 
complique, sauf si elles ont peur de vous. que vous 
n'avez pas trop de temps, et que le comite de rehabili- 
tation des pilules (CRP, 27 rue du General Foy 75008 
accompagne d'un cheque de 5000 Kopecs minimum) 
vous poursuit atin d'eviter le carnage. Vous avez nean- 
moins la possibilite, un nombre limite de fois, de les 
paralyser durant qelques secondes. a I'aide du bouton 
(d'ou le nom). 



Thierry BROCHART 



Mode d'emploi: Ce n'es! pas difficile, si vous possedez I'assembteur 
TOOL KIT. auquel cas, vous lapez le listing 1, puis vous enlrez le 
lisltng 2 en hexadecimal. Si vous possedez BIG MAC, il vous suffit 
de rajouter des espaces enlre les instructions e! les operandes. 
Vous n'avez pas ces assembieurs? Tapez le listing Ibis puis le lis- 
ting 2 comme suit: 
Tapez CALL-151 < RETURN > 

Pour le listing Ibis, tapez 6000:A9 02 8D 03 08 A9 FF 85< RE- 
TURN > 

6008 :5A A9 00 8D 04 etc... 

Pour le listing 2. tapez 8000:00 00 70 07 78 0C 7C 1C< RETURN 
> 

8008:7C3F 7E 07 7E etc... 

Quand vous avez fini, tapez BSAVE PARALIZ-MAN.AS 6000.LS 
270A. Lancez le programme par BRUN PARALIZ-MAN. 



tOCB 












eoca 








z 


* . 


eoqb 










• PAROLIZ-ttON * 


E0G0 








5 


• • 


eoob 








£ 


• prr * 


'£000 








7 




£030 








8 


* THIERRY BROCHORT * 


E0BB 








9 


•' • 


£000 








10 


« iflPPLE It* 4BK) * 


£000 








11 




eqbo 


09 


02 






LDQ«*02 


60B2 


UL- 


03 


88 


13 


ST0»B03 


£005109 


FF 




14 


LDfltt«FF 


£007:85 


50 




15 


STQ*5R 


£003 : 09 


00 




IE 


LDO«*00 


SO0B:SD 


04 




17 


STO*B04 


600E=SD 


05 


88 


18 


STOteOS 


60tl:SD 


.?-: 


08 


19 


STR»E86 


50la:8D 


07 


06 


20 


STO»E07 


E017=BD 


08 


08 


21 


STfl*B0B 


6,010 :SD 


2D 


0B 


22 


STQiBOD 


£BlD:fl9 


09 






LDO«*09 


£01F=8D 


09 


OS 


24 


STO*E09 


6023:60 


Of) 


08 


25 


STO«E0R 


6025=80 


bb 


08 


2E 


STR1E0B 


£023:09 


00 




27 


LDfl#*O0 


£020 :£D 


:: 


08 


2B 


ST0SB22 


£020: 4C 


£2 


£0 


29 


JHP INIT 


60JO1A4 


18 




30 


DESSINE LDY»1B 


E032 : 20 


4F 


£0 


31 


JSR ODRESSE 


£035:05 


IF 






LD0*1F 


603.7 :£5 


DE 






sro«D6 


£07-9:02 


00 




34 


LDXB400 


EB3B:Q1 


IC 




35 


DEBUT1 LDftCHC.X) 


E03D: 11 


10 




38 


CiRA(»lft>, Y 


E03F:91 


1ft 




37 


STOC*lfi),Y 


£041 = £6 


1C 




38 


INCtlC 


£B43:CS 






39 


I NY 


6064 :C£ 


D£ 




60 


DECtDE 


£046 : DO 






41 


BNE DEBUT 1 


E04E=E£ 


18 






INC418 


6040: CE 


IE 




43 


DEC*!E 


S04C:D0 


E2 






BNE DESSINE 


S04E:E0 








RTS 


EB4F=B9 


OF 


85 


46 


ODRESSE LDO*B50F.Y 


6052=16 






47 


CLC 


6051 : £5 


19 




68 


ODC»19 


£055:85 


in 




69 


STR*1Q 


£057 :B9 


CF 


85 


50 


L1R*85CF. Y 


£050: IB 






51 


CLC 


EB5B=£5 


CF 




52 


«DCSCF 


£052:85 


IB 




53 


ST0»1B 


£05F:O0 


00 




54 


LDYH»0O 


£0£ 1 1 EO 






55 


RTS 


£062:03 


20 




56 


INIT LOO«»20 


6064: 65 


E6 






STflSEE 


£066 i 20 


F2 


F3 


5E 


JSR*F3F2 


6069:09 


60 




59 


LDA»*40 


6066=85 


E6 




60 


STfi*EE 


S06D : 20 






81 


JSR*F3F2 


£070 :0D 


50 


CO 


82 


LDft»C050 


£07 3 : 00 




CO 


E3 


LDR»C032 


£07£:OO 


57 


CO 


86 


LDR*C0S7 


£079:00 


56 


C0 


65 


LDA*C054 


607C:09 


."::■ 




£E 


LDfl«*00 


£07E:E5 


CF 




67 


STRHCF 


£080=35 


56 




8E 


ST0»54 


6082=85 


55 




69 


5TR*55 


6084 = 85 


FC 




70 


STO*FC 


60E£:09 


:-.*. 




71 


LDR»«E6 


6088 : 85 


El 




72 


STfltEl 


£080:09 


.C 




73 


LD0»*3D 


£0SC : 85 


E0 




74 


STfitEB 


608E:Q9 


05 




75 


LDA«t05 


6030:80 


20 


08 


7£ 


STfl»E20 


603 3=09 


01 




77 


LDA«t*0J 


6035:80 




08 


7e 


STQ*B21 


6038=09 


03 




79 


DEBUTCDL LDRtt»03 


6090=85 


F9 






5TA*F3 


609C:R4 


F9 




81 


SUITECDL LDY*F9 


E09E=»9 


80 




82 


LDfi«*00 


£000:85 


FB 




83 


5TG»FB 


£0O2:B1 


£0 




86 


LDHf*60>. V 


£006=65 






85 


STO»FR 


£0A6=E£ 


FB 




86 


DECOL INCtFB 


E0Q8: 16 






87 


CLC 


£009 : 06 






88 


OSL*FR 


6006: BO 


£0 




B9 


BCB DESFQRM 


60OD:O5 


FO 




90 


LDOSFO 


6B0F1C9 


00 




91 


CMPrttOO 


60S 1 = DO 


F3 




92 


BNE DECRL 


60B3=C6 


F9 




93 


DEC«F9 


60B5 = DO 


E3 




94 


BNE SUITECOL 


£0B7:O9 


03 




■bZ 


LDO«»03 


60B9:ie 






98 


CLC 


6060=65 


60 




97 


ADCCE0 


60BC : 85 


G0 




98 


STO*E0 


E0BEI90 


03 




93 


BCC TEBTCLR 


EBC01E6 


£1 




00 


INC*E1 


E0C2 t 1 6 






01 


CLC 


60C3JO5 


FC 




02 


TESTCLR LDR«FC 


60C5:C9 






03 


CMPt*0O 


6OC7ID0 


07 




0b 


BNE BLEU 


£0C9tQ9 


01 




OS 


LDO»»01 


G0CB16S 


FC 




08 


STfi*FC 


60CD14C 


D4 


80 


07 


JMP CHGX1 


£000:09 


00 




00 


BLEU LDR**0O 


60D2165 


FC 




09 


STO*FC 


£006 =E£ 


35 




10 


CHGX1 INC»55 


£006=05 


53 




1 1 


LDR«55 


£0De>C9 






12 


CMP»»24 


E-bdrsDM 


8C 




13 


BNE DEBUTCOL 


E0DC109 


20 




14 


LDAM2C 


60DE:e5 


EG 




15 


STR*E6 


B0E0I89 


SC 




18 


BT0«5C 


G0E21O2 


OS 




17 


HPLOTTO LDX»*05 


£0E6 I 20 


EC 


F6 


18 


JBR«F6EC 


60E7IR2 


00 




19 


LOXHftOO 


60E9IA0 


00 




20 


LDV»»0O 


6O£D>09 


00 




21 


LDRO4O0 


E0EDt20 


11 


FU 




J6R9F41 1 


6BF01OE 


50 




23 


LDX»50 


60F2I 


Cfl 






24 


DEX 



60F3=8R 


125 


TXR 


£0F6:R2 00 


126 


LDXW»00 


6OF£:R0 00 


127 


LDY»*00 


6OFB=20 30 F5 


128 


JSR*F530 


EOF B: OS 5C 


129 


LDRtSC 


E0FD1C9 60 


130 


CMPK*4B 


E0FF:F0 09 


131 


BED SUITI I 


6101 =09 40 


132 


LDR»*40 


S103=ES 5C 


133 


STfi*5C 


£105=85 E6 


134 


5Tfl*EE 


EIB7=4C E2 £0 


135 


JMP HPLOTTO 


£1B0=4C 9C El 


136 SUITI I 


JMP JEU 


£1BD:09 00 


137 DE5F0RM LORM*00 


E10F=B5 54 


13B 


3TR»54 


£111 =04 F9 


139 


LDYtFB 


E113:88 


140 DECY 


DEY 


£114:F0 OR 


141 


BED DERBYTE 


6116=05 54 


162 


LDR>54 


6118=18 


143 


CLC 


61 19=69 3e 


144 


RDC»*3E 


61IB=B5 56 


145 


STfi»56 


£1 1D:4C 13 El 


146 


JMP DECY 


6120=06 FB 


147 DERBYTE LDXSFB 


E122=E0 00 


14B SIMOX 


CPX(t»00 


6126SF0 0B 


149 


BED LORDDIM 


6126=09 07 


150 


LDfl»»07 


6128=18 


151 


CLC 


6129:65 56 


132 


0DC*54 


6128=85 56 


153 


STR»56 


612D=C0 


154 


DEX 


612E=4C 22 £1 


155 


JMP SI MAX 


6131 =09 01 


156 LGADDIC 


LDfi*»01 


6133=85 IF 


157 


STR*1F 


£135=09 B7 


15B 


LDfl 11*07 


£137=85 IE 


159 


ST0*1E 


6i;9=R5 FC 


1E0 


LDR*FC 


6I3B=C9 00 


1E1 


CMP»*00 


£130=00 07 


162 


BNE IMPRIRl 


E13F:Q9 00 


163 


LDR«t*00 


6141=85 IC 


164 


STRHC 


6143=4C 4R 61 


165 


JMP VPDESS1 


6165=09 07 


166 IMPRIRl 


LDfl»«07 


614E=B5 IC 


167 


STA«1C 


6140=09 e5 


168 VRDESS1 


LDR»*S5 


E14C=85 ID 


169 


STR»1D 


E14E=05 55 


170 


LDR*55 


£150:BS 19 


171 


STRH9 


£152=R5 S4 


172 


LDA*56 


£154=85 IE 


173 


GTR*1B 


£156=04 18 


174 DESS1 


LDYH8 


6158=20 87 61 


1 75 


JER RDRES51 


£156=05 IF 


176 


LDR»1F 


61 50: 65 06 


177 


STRtDB 


615F:A2 00 


176 


LDXMtBB 


6161=01 IC 


179 SUB1 


LDR(»1C. X) 


6163191 Ifi 


180 


STR(»IR). Y 


6165=1B 


181 


CLC 


6166=09 20 


182 


LDR#*20 


E16B:65 IB 


183 


0DCC1B 


6160=85 IB 


184 


BTfitlB 


6 1 6C = 1 1 C 


185 


LDR1HCX) 


£1£E:91 IR 


I 86 


STH(llfi). Y 


6170:09 20 


187 


LDfl"«20 


6172=38 


166 


SEC 


6173=ES IB 


189 


SBC* IB 


61751BS IB 


190 


BTfl*IB 


6177:E£ IC 


191 


I'NC*IC 


£179=C8 


192 


I NY 


617ft=C6 DE 


193 


DEC*DE 


£17C=D0 £3 


194 


BNE SUB1 


617E1EE ie 


19S 


INC*18 


6180:C6 IE 


196 


DEC*1E 


6182:00 D2 


197 


BNE DESS1 


E1E4:4C 06 60 


198 


JMP DECRL 


61871B9 0F E5 


199 ODRESS 


LDR*B30F. Y 


6180=16 


2O0 


CLC 


6188:65 19 


201 


RDC*19 


E18D1BS 10 


202 


STR»10 


E18F169 CF 85 


203 


LDAtBSCF, Y 


£192=85 IB 


206 


ST041B 


£ 1 94 : 1 6 


205 


CLC 


£195=65 CF 


206 


RDC4CF 


£197=85 IB 


207 


STR*1B 


61991R0 00 


208 


LDYK*0O 


£19B=60 


209 


RTS 


E19CIR9 00 


210 JEU 


LDOHC00 


619E=eD 02 0E 


211 


STRSB02 


6101 :B5 5B 


212 


ST0*5B 


£103=65 CF 


213 


STR»CF 


610S1B5 60 


214 


STA*60 


£107=85 El 


215 


sto*ei 


61091B5 F2 


216 


ST0«F2 


61R8=e5 F3 


217 


STR»F3 


6100=85 5B 


21B 


STfl»5B 


610F=H9 11 


219 


LD0H*1 1 


£181 i85 5£ 


220 


5T0*56 


61B3=85 57 


221 


BT0*S7 


61B5IB5 19 


222 


BTRH9 


61B7=09 OE 


223 


LDR>t«0E 


61B9=B5 54 


224 


ET0*54 


618B185 55 


225 


STR*55 


£1BD>85 IE 


228 


STRtlB 


6!BF:R9 01 


227 


LDR«»01 


61C1 =B5 59 


22B 


STR»59 


E1C3=R9 00 


229 


LDRHtOO 


61C5=85 IC 


230 


STR* 1 C 


61C7=09 80 


231 


LDRNVB0 


G1C9183 ID 


232 


STR«1D 


E1CBI09 0E 


233 


LDRtt*0E 


61 CD IBS IE 


234 


ST0»1E 


61CF1R9 02 


235 


LDR»*02 


E1D1 IBS IF 


238 


STR»1F 


61D31B5 D7 


237 


STA*D7 


61D5109 03 


238 


LDQtt»03 


61D71BD 00 08 


239 


STO«B00 


GIDfiiBD 01 OB 


260 


STO«B01 


61DD120 30 &0 


241 


JSR DESHiNE 


61E0IR9 ID 


262 


LDRNtlD 


61E218D 11 62 




BTR»G21 I 


61 £5 109 39 


266 


LDRH*39 


61E71BD 12 Q2 


263 


ST0«B212 


E1E0IR9 33 


268 


LDRtt*55 


ElECiBD 13 E2 


247 


3T0«B2I3 


B1EF1R9 71 


268 


L0nt(*71 



£1F1=ED 16 


82 


249 


61F4=R9 02 






61FE:e5 IF 




251 


6IFB1R9 OE 




2S2 


61FR=85 IE 




253 


61Fr} = 09 81 




254 


61FE=85 ID 




255 


6200 :A9 ID 




25£ 


6202=85 IC 




257 


£206=03 01 




258 


6206: ED 01 


82 


253 


6209=BD 05 


82 


260 


62BC=85 19 




261 


£20E=O9 15 




262 


6210=80 09 


82 


263 


6213:8D 0D 


82 


264 


621E:E5 IB 




265 


E218=20 30 


80 


26E 


6218=03 02 




2E7 


621D=E5 IF 




2EB 


G21FJ09 BE 




2E9 


£221:65 IE 




270 


£223 :R9 El 




271 


6225=85 ID 




272 


6227=09 39 




273 


6229=85 IC 




274 


6228=09 01 




275 


622D1BD 82 


82 


27E 


6230=80 BE 


82 


277 


6233=85 19 




27E 


6235=09 8C 




279 


6237 =8D OR 


82 


2E0 


623fi=8D OE 


82 


281 


623D=85 IS 




282 


£23F=20 30 


80 


283 


£262 >R9 02 




284 


£246=85 IF 




285 


£246 :A9 BE 




2ee 


6248=85 IE 




287 


626fl:AE Bl 




288 


626C=85 ID 




283 


624E=R3 55 




290 


6250 =B5 IC 




291 


6252=09 15 




292 


62541 ED 8B 


B2 


293 


6257 =BD BF 


82 


294 


6250=85 IB 




295 


625C1R9 21 




29E 


625E=8D 03 


82 


297 


6261 =8D 07 


92 


29B 


6264 =85 19 




299 


6266=20 30 


80 


300 


62E9=A9 B2 




301 


626B:85 IF 




302 


6260:09 0E 




303 


62£F=85 IE 




306 


6271 =09 81 




305 


£273:65 ID 




30E 


£275= R9 71 




307 


6277=85 IC 




308 


6279 iA9 21 




309 


62781 BO 04 


82 


310 


627E18D 08 


82 


311 


6281=85 19 




312 


E2831 R9 SC 




313 


6265 :8D 0C 


82 


314 


6268 i8D 10 


82 


315 


628Bie5 IB 




316 


628D120 30 


80 


317 


6290=09 BB 




318 


6292=85 EC 




319 


6294=65 ED 




320 


6236=85 19 




321 


6238=03 78 




322 


629R185 EE 




323 


629C:B5 EF 




326 


629E185 ie 




325 


6200 lOS 3F 




328 


6202 IBS EB 




327 


6204=85 IC 




328 


6206 1R3 82 




329 


6208=85 ID 




330 


B2RRIR9 BE 




331 


E2HC1B5 IE 




332 


62AE109 02 




333 


G2B01BS IF 




336 


62B2:20 3B 


80 


335 


G2BS:fl9 IR 




336 


6287=85 62 




337 


6289=85 63 




33B 


£2BB:85 13 




339 


628D1R3 70 




348 


628F=85 E4 




361 


62CM85 63 




362 


G2C318S 18 




343 


62C31A9 20 




346 


62C7195 66 




345 


E2C9I85 IC 




366 


E2CB=R9 82 




347 


E2CD185 ID 




34B 


E2CF109 BE 




349 


62D11B5 IE 




350 


62D3I03 02 




331 


62D3185 IF 




352 


62D7=20 30 


SB 


353 


62DRIR9 00 




354 


62DC1B5 CE 




335 


6206=85 CF 




338 


6260=03 BE 




357 


62E2IB5 IE 




358 


62E4I09 02 




359 


G2E6183 IF 




360 


62EBIR9 01 




361 


62EOIS3 19 




362 


62ECI03 81 




363 


62EE1B3 10 




364 


E2F0IR9 00 




363 


62F2183 IC 




366 


G2F4103 80 




387 


62FGI83 ID 




3E8 


G2FB12B 30 GO 


369 


G2FBIA9 07 




370 


G2FD183 IE 




371 


G2FFI83 IF 




372 




APPLE 



STA*1D 

LD0"*1D 

STO*IC 

LDRHV01 

STR*B201 

STO«B205 

STR*19 

LDRtt*15 

STfl*B209 

STR4B20D 

STfitIS 

JSR DESSINE 

LDRHS02 

STRHF 

LDRttSOE 

STOtlE 

LDR«»B1 

STA*1D 

LDA**39 

STflllC 

LDR#«01 

STO«B202 

STR*B20E 

STfi*19 

LDOttfBC 

STR»B20fi 

STRSB20E 

STRtlS 

JSR DESSINE 

LDRMC02 

ST0«1F 

LDRH*0E 

STR*1E 

LDRttSBl 

STAtlD 

LD0M55 

STR«1C 

LDRH*15 

STO*S20B 

STR»B20F 

ST0*1B 

LDOtt*21 

STR»E203 

BTR»B207 

STfl»19 

JSR DESSINE 

LDRtt»02 

STA*1F 

LDOttSBE 

STR»1E 

LDRHVB1 

STR»1D 

LDA*1»71 

STR«1C 

LDRIt*21 

STR*B204 

STR»B2BB 

STR»19 

LDftlt»BC 

STft»B20C 

ST0SB218 

STR*1B 

JSR DESSINE 

LORttHOB 

STR«EC 

STR*ED 

STR»19 

LDR«*70 

STfl*EE 

STfi«EF 

STR*I8 

LDRtt*3F 

STT.tEB 

STOtlC 

LDR#«82 

BTR*1D 

LDO«»0E 

STR«1E 

LDfitt*B2 

STA»1F 

JSR DESSINE 

LOAHtlA 

STAt62 

ST0*63 

STR»19 

LDR**70 

STfl»64 

STR*65 

STR*1B 

LDh»«2B 

BTR«6£ 

STR*1C 

LDR»»B2 

BT0*1D 

LDRM0E 

STA*1E 

LDR»»02 

ST0«1F 

JSR DESSINE 

LDfl«*0fl 

STR«CE 

STO«CF 

LDR»«0E 

GTR*IE 

LDO#«02 

BTO» 1 F 

LDAMS01 

GTR*19 



LDOIt*Pl 
BTRftlQ 



GTR» 1 C 

LDRH*B0 

STRC1D 

JSR DES5INE 

LDa«*07 

ST A* IE 

3T0»1F 



H6301 :09 00 




373 


LC-O»*0O 


6383=85 IB 




374 


5TO«18 


"6305 = 09 IB 




375 


LDO*«10 


6307=83 19 




376 


STR*J9 


6309=03 00 




377 


LDO»»B« 


630B:E5 IC 




378 


STOllC 


£300:09 B3 




379 


LDO'»S3 


630F1B5 ID 




3E0 


ST ft* ID 


6311 :2B 30 


60 


3BI 


J5R DESSINE 


£314=R9 31 




382 


:.:".««-: 


E3i£=E5 IC 




583 


STO«!C 


£318:09 83 




3B4 


LD0«83 


£310:85 10 




385 


STA«1D 


631C=R9 07 




386 


LDO»«07 


631E=B5 IE 




387 


STR*IE 


£320185 IF 




388 


ST0*1F 


6322= R3 BB 




383 


LDO«*BS 


6324=85 IB 




330 


STft«18 


6326 =R3 10 




331 


LDootie 


6328=85 13 




392 


ST0«19 


E32R=20 30 


80 


393 


JSR DESSINE 


6320=05 CE 




394 


LD0»CE 


632F1C3 00 




395 


CMP««0O 


633 1 = DO BB 




39G 


BNE FINI&LO 


6333:03 01 




397 


LD0*«B1 


6335=85 CE 




39B 


STO»CE 


6337 :R9 20 




399 


LDR»«20 


6333=85 CF 




600 


STR»CF 


633B14C E0 


62 


601 


JMP BLRBLO 


£33E:09 81 




402 FINIBLR LDA««01 


6340=85 CE 




4B3 


STO*CE 


6342=09 20 




684 


LDR>*20 


6366=85 CF 




6BS 


STO«CF 


6346 =RD 61 


C0 


406 PDLY 


LD0SC061 


6349=30 0C 




4B7 


BMI PAROL 11 


6368=09 05 




408 


LDO«»05 


634DIBD 20 


BB 


409 


STR*B20 


6350=09 00 




410 PRSBOUT LDRNtBO 


6352:85 5B 




611 


STR*SB 


£354 J 4C RD 


63 


612 


JMP C0LC1 


£357 :0D 20 


OB 


613 PARALIZ LDO«B20 


635RIC9 FF 




614 


CMPd»FF 


£35C:F0 F2 




415 


BEO POSBQUT 


G35E=CE 20 


BB 


416 


DEC*B20 


6361 106 5R 




417 


LDX»5Q 


6363 =CR 




6IE 


DEX 


6364 :E0 FF 




619 


CPX«»FF 


63E61D0 07 




420 


BNE CONTPOR 


£368:09 00 




621 


LDO«»00 


636RIB5 5B 




422 


STO»5B 


636C14C EG 


83 


423 


JMP CRLCFON 


E36F=8E 5fl 




424 CONTPOR STX«5fi 


6371 :E6 SD 




425 


STX»5D 


6373=09 03 




42E 


LDOH*03 


6375 IBS SE 




427 


STA*5E 


£377=00 00 




42B 


LDY»»O0 


6379120 A4 


6C 


429 


JSR CLOCHE 


637 C =09 20 




630 


LDRMV20 


637E=B5 EB 




431 


STO»E£ 


6380 IBS 5C 




432 


ST0*3C 


E3821R2 84 




433 HPLOT0 


LDXH404 


6394 I 2B EC 


FS 


634 


JSR«F6EC 


6387 me 50 




435 


LDXt5D 


6389109 B0 




436 


LDADtBB 


638B1AB 00 




437 


LDYMtBO 


E38D120 11 


F4 


638 


JSR»F611 


£390:05 IC 




639 


LDRtlC 


6392151 2£ 




460 


E0R<*26>. Y 


6394=25 30 




661 


RND»30 


6396=51 2E 




462 


E0RC«2E). V 


£398=91 26 






STQ(*2£). Y 


6390105 SC 






LDQ*5C 


639C1C9 40 




645 


CMP«»40 


E33E=FB 03 




466 


BEO SUITI 


E3R0=R9 40 




667 


LDR"*60 


6302 =B5 5C 




468 


STR«5C 


£304=83 EE 




649 


ST0VE6 


E3A6:4C B2 


S3 


450 


JMP HPLOT0 


£3A9:09 Bl 




451 SUIT! 


LDfl**01 


G3ABIE5 SB 




452 


STfl»5B 


£30D:AD 21 


as 


453 CALC1 


LD0»B2I 


i.T(. 11 IC'-! ;',- 




454 


CMP»»O0 


E3B2:D0 32 




455 


BNE COLCFRN 


63B4JR9 B3 




456 


LDA«»0T 


6386=65 SB 




457 


ST0*5B 


63B8:04 5B 




45B STOPF 


LDY»5B 


63BR181 F9 




459 


LDR(»F9>. V 


638C=B5 19 




660 


STOH9 


63B£=B1 FB 




4E1 


LDR(*FB) . Y 


63C0=B5 IE 




682 


ST0«1E 


63C2:09 02 




463 


LDR<1*02 


G3C41B5 IF 




666 


STO»IF 


G3C6=09 OE 




665 


LDR«»OE 


G3CB=B5 IE 




666 


5T0»1E 


G3CR:09 81 




667 


LDO»»81 


63CCI85 ID 




AGS 


STR*1D 


63CE=E9 11 E2 


663 


LDR*8211. Y 


6301 =B3 IC 




4 70 


STR*1C 


63D3120 30 60 


671 


JSR DES5INE 


6SD61CG 5B 




672 


DEC*S8 


63DSm4 5B 






LDY»3B 


63DR1C0 FF 




674 


CPY«»FF 


63DC=D0 DO 




6 75 


BNE STOPF 


£3DEi09 01 




476 


LDA»*01 


E3E018D 21 BB 


477 


ST0»B21 


63E314C C4 64 


478 


JMP CDNT1 


63E61R9 03 




4 79 CALCFOt* 


LDOt»03 


E3E8185 3B 




68B 


STA«56 


£3EO=R9 00 




6B1 


LDAIt*B0 


63ECSBD 21 BB 


682 


6TA»821 


63EF=09 82 




483 


LDO«*B2 


63FHB5 FO 




4B4 


r,rn*Fo 


63F31B3 FC 




685 


STR»FC 


63F3IA3 CE 




688 


LDO»CE 


£3F7=C3 00 




4B7 


CMP**00 


63F3ID0 08 




488 


BNE D0NCP02 


G3FB1R9 01 




4B9 


LDAH4B1 


E3FDIB5 F9 




690 


STA»F9 


63FF1A9 09 




491 


LDn««B9 


G60HB5 FB 




492 


GTR*FB 


6603I4C OE E6 


493 


JMP ENCOREF 


£4061 AG OS 




494 00NCPR7 


LDO»»05 


66081 BS F9 




693 


BTR»F9 


640A1O9 00 




69G 


LDR«»OD 


G40C183 FB 




497 


SIR»FB 


66 BE 103 3B 




498 ENCOREF 


i I'iir.i' 


E410IC9 00 




499 


CMP(t*0O 


6612IF0 OE 




500 


BEO DEPLFON 


£614120 B7 GC 


501 


jsr nurncFF 


6417I4C 90 £4 


502 


JMP OESBFRN 


64 1A 106 56 




303 DEPLFON 


LDY*30 


641CIB1 FB 




904 


LDO(*FD). Y 


G41E1 16 




303 


CLC 


E41F1C5 36 




306 


CMP»34 


64 21 190 IB 




307 


DCC DEBC1 


G4231F0 32 




308 


DEC OXEMOHl 


£425 ■ A3 01 




509 


L0RM«B1 


6627163 CO 




510 


STA*60 


6629120 48 GO 


511 


j'-,n raarcoa 


64 20 03 Gl 




312 


LD0«61 


G42C>C3 01 




313 


CMPHtOl 

Suite page 16 



PIECES EN VRAC 



Un mini-puzzle? £a a I'air simple, mais je vous 
conseille de lire le numero 53 avant de rentrer ce 
programme ou avant de renoncer a le rentrer sur votre 
ORIC 



Thierry THOMAS 



Suite duN* 53 



] 3008 PEM 000000000000000000000000000 
13001 REM n 

13882 PEM TIMHN n 

13893 REM 

13994 PEn OOOOOOOOOOOOOOOOOOOOOOOOOOO 

13919 '13199 

13939 PERDDC 

13940 FOR I . 9 TO 93 i READ TIKI>>NEX 

13959 FOP I = iB80O-K33*8) TO »e8e0+< 
DC*8>-1 PEftD P0POKE I.RDmEXT 
13969 RETIJRN 
13199 DRTR89 
13119 DRTR32. 32.33,34, 35, 32- 32, 32, 32, 

13128 0RTR32. 36. 37, 32.38.32.32. 32.32, 

33.39.49 

13139 DRTA41.42.43.32.44.43.32.32.46, 
47,46.49 

13149 DftTR30.51.52.S3.54.35.32,32.36, 
57.59.32 

13139 DRTA33- 60-61.62.63. 32. 32, 32, 64, 
35.66.32 

13169 P8Tfl57.63.69.70,71.72,73.74.?3, 
76.32. 32 

' 13178 PATA7?,32-?8.32.32.32,79.88,81, 
32-32.32 

13189 DRTR33. 94. 32. 32. 22,32.85,66.87, 
68,32.32 

13299 DftTfl0,0,O.O.0,0,0,l,O.0.6,3,9,8 

13291 PATAO.9.0.32,16. 12.4,4,9,0,1,2, 
4.8- 16. 32 

13202 P*T*3.2?. 32.0.9-0,6.9.4.4.8, 16, 
828.29.13 

13283 DftTfi3. 4, 13,22-42.42,44.20.0.48. 
16-24.40.40,48-40 

13294 PRTA0. 1.1.1. 1.1 . 1,1,32,8,0.0,0, 
0.0.0 

13293 DATA8- 8. 6. 8. 0,0,2,2, 2, 1,1, 1,0,6 

13296 DRTR8. 8, 9. 8. 32. 32. 32, 32. 28. 34. I 
7-9,8.4,4,4 

1 3287 CATfll , 2 . a , 5 , 40 . 45 . 48, 1 2. 29 . 36 . 4 
1.37.26.6-2.0 

13298 PRTR49.40.8.3.16. 16.32.32.3.2,3 

13299 PATR43, 3.32- 16. 32. 32-24.8,2,0.0 
.0-0.0,0.4 

13210 DRTRO, 3. 0,3. 0,0, 9. 31. 0.48, 16.32 
,0,9,29,32 

1321 1 DRTA32 . 32 . 22. 32 . 32-. 32. 32- 32, 4.4 
.6,2,3.1,1,3 

13212 08TA6. 2. 9. 0.9- 32. 9. 1.1. 1,2,2,4, 
4.4.24 

13213 C8TH1. 9, 9, 9. 9.0. 0,9. 32, 26- 1 4.1, 
3.4,4,4 

13214 DflTft9,e.9.9.9.32.33.33.9.9,6,0. 
0.9.9,49 

13213 DRTR33, 1.1.2,4,12,20,34,3,3.2.4 
.4,4,8.8 

13216 D8TR9. 32. 37, 1 4, 0, 0,0, 1.48. 48. 16 
.16,32.32.32.8 

13217 DRTflO, 0,0, 0.9, 9. 3. 4, 2. 4. 6, 7, 23, 
32.9,0 

13218 DfiTR13. 1 .8.9.32.36, 12,4,14.49,1 
3.31.32,39.32.32 

13219 D8TR34, 3. 2. 34. 49, 23. 7,8,0,36. 14 
.3,9,8,0,3 

13229 DflTAO. 8, 9, 32, 48, 26, 14. 3. 8, 0,1, 3 
,4,6,3,63 

13221 D8T8] 6- 16. 32, 0,9. 9. «. 0.1. 1,2, 2, 
2.4,4,4 

13222 DRTR24, 48,32.0. 0,0.0.0,3. 3, 0,0. 
0,0,9,8 

13223 PRTR9. 0,0,9, 0.0,16.32, 1.1,1.1.1 

,0,0.0 

13224 [)RTA32,16.16,16.48.32,8,0,4,4,4 
,4,4,8,8,16 

13223 DATA9, 0,0,8, 0,9,1, 1.0,0.8,8,0,8 
,9,6 

13226 0RTR32, 32, 32, 32,63, 32. 32.32.0,0 
.8,1,62.0,9,9 

13227 08189.0.7,36,9,0,0,9,16.48,0,0, 
9,9.9.9 

1 4999 REM 000900900000009000000009000 

14991 REM 

14002 PEM 00'JLE K SILL 

14993 REM 

I "3 694 Pfc*:-i '1 :. T, v. ',':■•:. vo '.■■.;■;-: -,--.- -.'.-,--- y'j 

14995 PEM 

14919 I 14100 

14038 RERDOC 

14049 FOP 1 * 9 TO 93 READ TrK I > = NEX 
T 

14958 FOR I . •B990*<33*8) TO iB890*r 
PC*8>-1 READ RD POKE I . PD NEXT 

14060 RETURN 

14199 DATA93 

14119 D8TR32, 32.32, 32. 32, 32, 32,33.34. 
35.36.32 

14129 DRTR32. 22. 32- 32. 37.33.39,40.41, 
32.42,43 

14139 DRTR32.32.32.?2.*4,45,46.47,48, 
49.58,41 

14148 DATR32.51.52.53.54.55-56.57.38. 
55.60.61 

14159 DRT862. 63. 64.65,66. 67-68,69. 78. 
71.72,73 

141*8 DRTfl74, 73, 76. 77, 73.73.39.81.32. 
83,84,85 

14178 DATfi32.36.37,32.88,8?,90,91.92, 
33.94.32 

14J89 DflTfl32,32.?2. 32.32. 32. 32.32,32. 
32.32.32 

14280 r.RTR0,9.0,3,4.31 .0-3.9.8-4,58.3 
.59.13.48 

14201 ORT80.7.8. 16. 16.40,32,0,9,0.48. 
8.4,6,2.1 

14292 DATRO, 9. 0,9. 0,7, 0.15.9,0.9,8.4, 
59,43,21 

14293 DflTRC. 0.1.2.4,8.48,16,12.49,8,0 

142H4 ['flTft9,8,0.0.9,9,0.32, 1.1.7-2-3. 

[4295 DRTAO. 0.32. 32. 9, 32, 0,0, 60. 3. 4. 4 
.9.19.21.13 

14286 0ftT«53, 33. 1,33, 55, 0,55, 0.44. 52, 
53,58-58.26,12.46 

14207 MTft24.32.0, 16,32.8.8.0-24.6. 11 
-5-1.9,0.0 

14203 0RTR8, 19. 10.22.22. 37. 17.33.2.1, 
1.1. 1,1, 7. 9 

1*2*3 fnTR8,0,9,0,0,9,7,24,9.0.e.9,8. 
8.63,0 

14219 [>nTR9.9.0.0,i,2.6e.,, ? c,. 2 9,j, - 
2.32,37,35, I 

142H DflTflB,8. 0,6,0.39. 33v«,».Z2.23 
.23.23,23.09,35 

14212 DflTAO, 0. 3- i. n. 34,34.1,9,6-3,39 
.4,0.4,6 

14213 CjRTRI .1,0.0,0,4.4,8,16.39,3,1,7 
9,8.31 

14214 IRTR16.40.4O,24^S, ]i;,4il,5?,1 .2. 

5.11. ii ,27,23,23 



14215 M»TR39. 3 1.63. 63. 63- 63- 61- 69. 6-3- 
56.49.32.0.0,9,32 

14216 DRTR62.4.?.9-10.1S,6.I.54.44,13 
■13.15.7.3.0 

14217 PATAO. 0.63. 63. 63. 63- 63. 63. 33. 57 
■57,37.56.56.48,1 

14218 0RTR4,?,32.24.47.33.32.9.4R,T.6 
0.0,0.59.28.33 

14219 PRTR49.7.8.16.31.32.9.63.63.63. 
31.31.15.47,47.48 

14220 DATR32. 58- 59.58-58,58.50.4.23.2 
3.23,23.13,4.2,1 

14221 DATR69, 69. 56. 36. 56. 56. 24. 9.32.1 
6. 16-8.8.4,2,2 

1 4222 DATA1 ,0.9- 0-0. 0,9, 9.0. 48. 24. 7. 3 
.3.4,4 

14223 CRTR9- 9, 8, 53- 33,35.2^.0-1.6. 12- 
48-32. 16.16.16 

14224 DflTAO, 9. 0.0, 1.1, 2. 2, 46. 16- 49- SO 
.34-36.36,37 

14223 DATR24. 48. 16,32-32.63.32.62.40. 
23.16.16.16.16.48.16 

14226 DBTR9. 48. 0.8. 0.0. 9. 8- 36. 7. 0.0, 8 
.0.9.9 

14227 DRTR2, 60. 9, 9. 9. 0.9. 9. 4, 3. 8,8,0, 
8.9.8 

14228 DRTR0, 33 -30. 08, 8. 8. 0-16.32,9,0 
•9, 9. 8-9 

14229 0RTR3. 3. 3. 3. 7. 3.5. 5.37, 37, 37. 29 
,23.32,29,43 

14230 DRTfll, 12,3,63.32.32.32.0,48. 16, 
16.48,8.0.0,0 

13090 REM 000900900909000000000090900 

13901 REM n 

13992 REM Rehill* TALON 

13093 PEM o 

13084 REM 0009901909 199 -.9009099990990 

15093 PEn 

15616 '15190 

13039 PERDDC 

15040 FOR I = 9 TO 93 READ TKI ) HEX 
T 

13959 FOP I = "eeOOK 33«3 v TO 488B9-K 
DC*8>-1 :RERD PO POKE [>Rt>>NEXT 

15969 RETURN 

13189 DRTR89 

15119 PHTR32.32. 33.34.35 36.32.32.32. 
32,32,32 

13129 PRTR32.37.33.39.49,41,42,43.32. 
32.32,32 

13139 DATR44. 45,46. 32, 32,47.48,49.50. 
32.32.32 

15148 DPiTR51.52.5 3.34.55.56.57.32.58. 
39.-32.32 

15159 DRTA32-32.60.3232.S1 .62.32.63. 
64,32,32 * 

13168 DflTR32.:'2.65.66.67.68.59,79,71, 
72.32.32 

15170 DRTR32.32.32.73.74.75.76.77,78. 
79.59.32 

19180 DRTR32.88.8t-. 62. 33, 34, 33. 86, 32, 

13206 DflTR8.O,8,9-0.0,3.4,O,8,9, 16.3. 
4,2.33 

13291 DflTAO, 0.9. 8, q, l.n.4,0-0,0,16.0, 
9.0,9 

15292 DflTAO. 9. 9. 9. 3. -i - =;. 8 -8. 16.8.5,34 
,17,8.4 

15283 t'RTRie. 16.32-0.9.0.32. 16.9,16,8 
.0.0.0.9.9 

15294 DATRO. 9. 0.0, 8. O.l, 3.0.9,0,3,9, 1 
.33,38 

15295 PATR8 , 9 . . 6 , 9 . 2^,32-32,0, 1,9,0. 
0.16,3.5 

15296 0RTR3.4.34. 17.8.29. 34. 1.2.2.2,4 
,56,9.9.0 

13297 C>8Tfi2.6,4.5.5.6.2.2.24.32.32.0. 
9-9.1.0 

13293 C'ATR40, 36. 34. 34. 33- 3-3. 0.9-9.0,0 
,0,9.0.32.32 

15289 PATR2. 1,0. 9. 0,9.0,9,9, 0-32. 16.0 
,9,9,9 

15210 DATRO. 9. 0,0. 9.0. 1.1 .8.0.0.7,24, 
43,32-9 

13211 DATA0. 0.0,32.56. 12.3,9.4,4,4.3. 
8.2,4.46 

15212 DRTR9, 9. 0.9. 9, 16, 32. 48, 16. 16, 16 

' 15213 DP.TR8. 9, 0.9. 6,9. 9, 32, 2,2, 2, 4, 4. 
4.4,4 

15214 PATA29.3.4.2.0.9.0.0,32.O,0,0,O 

,0.0.0 

15215 DATA24. 16.32, 32,39,14,26.22,46. 
16. 16.3,48,40,16, 16 

15216 DATA4,2,3. 1-0.0,0,9.8.6,8,32,16 
.15,0,0 

15217 PRTA0.9, 0,8,8, 3-61 . 1 ,0,8, 1 , 7,24 
.32.24.3? 

15213 DRTAO, 32. 1,49. 15, 0,0. 0.0. 0.32,0 
,9,9.0.8 

15219 C'RTRO. 33, 62. 48. 8, 0.0, 1,32.32.32 
■32.32 32.32,0 

15220 DRTR0. 3, 4, 4,6. 3, 8, 6. 36, 4, 3, 50, 5 
8,31.15,8 

15221 DRTA32, 32, 32, 16.47.48.56. 15,9,1 
6,16,63,8.7,56,0 

15222 DATRO, 3, 1.63. 58, 4, 3. 16. 3. 13, 48. 

15223'DRTR9.32.ie.e.4.2.I,9,0,0.0,9,0 
,9,8,1 

13224 PRTR0, 1,2,4,9, 17,33,8,56,47.16. 
32,8.0.6.63 

15225 DATRO. 49, 14,6,8,3. 16.32.28.32.0 
,0,0.9.0.0 

13226 DATA9, 0,1.1.2.2-4.4,32.36.12,12 
.4.6.6,10 

15227 DATR32.24,22.9.12.4.9,51.9.9,0, 
9.32 32. 32.0 

16000 REM oooooo ooooo 001 09 00000990900 

16001 PEM 
16902 REM LUCKY LUKE 
16003 REM 
15904 REM OoooooooooooooooooooooooooO 
16993 REM 

16910 ' 16190 
16030 PEADPC 
16940 FOP I - 9 TO 95 PERD TMU ) ■ HEX 

16950 FOP I ■ •6800"-'?3»9> TO tBaOO't 
00*0 >-1 RERP PD POKE I.RDNEXT 
16969 PETUPN 
16189 DRTR93 

16119 DRTH32. 33. 34-33,32.32.36.37,38, 
39.32,32 

16120 DATfl32.32.40.41.42.43.32.32.32. 
44,43,46 

16139 CATft3?.'»2.47.4e,49.39,3J.32.33/ 
32.32,34 

16149 (JRTR32, 32.3.3.53.56.37,36.59,60. 
61.32-62 

16130 t'RTR32, 32.32.32.63.64,32,63.66. 
67.32.68 

16169 ORTR32,32.69,70,71.32.72.73,37, 
74.73.97 

16179 l>flTfi76.?7,78.79.88.81,82.37.32, 
•2.32.32 




q AT^AOS 
0B1C1 



i DRTA33 . 84 . 83 ■ 32.86.87. 88. 89. 99, 
91,??. 32 

16209 0ATR8, 9. 9. 0.0. O.I. 1.0, 9, 0.9. 9.1 
5,63,48 . 

15291 DATB9, 0,9, 9, 3, 8. 56, 4, 8, 9, 0,9, 9, 
9.9.63 

16202 DHTRO.l, 1.2.4,8,63,0.0.56,6.1.0 
.0-48.15 

16283 DHTR8, 8.9. 9,32. 16.8.36, 1,8.48.1 
4. 1,1.7.13 

16294 0ATR2.36. 13.9.39.63,63.63,8.8.6 
3.0.63-63.63,63 

16295 0AIR7. 36, 9,0. 0.56, 62. 63, 28. 3.0. 
0-0,0,8,8 

16286 DRTR9,32,56,12,2, 1.0,0.3.0.0.0, 
0,3,32,16 

16297 DATft31,31,31,31,31. 15,7,0.63,63 
-63,62,68.36,48.48 

16233 DATR63.62.1.2.4.3, 16,16,13.23,4 
9-34,18,12,8,66 

1 6299 DATR63 .0.1, 9. 0.0. 1.2, 46. 63, 3,3, 
2.2.4.1 

16210 WHTA9, 6.0.32.46-48.40, 12.16.0,8 



18938 FOR I - tBS98*<33»8) TO iBSOe*' 
0C«6>-1 ^RERO PD^POKE LRO'lHEXT 

18850 RETURN 

19188 DRTAI11 

18110 DRTR32, 32.32, 33,34,33, 34,36.32, 
32.32,32 

18120 DRTA37.38.39.48.41,42,4l,43,44, 
43,46.47 

18130 DRTR48,49.30.31,32,33,34.33,36, 
37,37,38 

1914B OflTft32,59,60,61,62.63.64.65.66, 
67,69.32 

10130 DflTfi63,70.32,71,72,73.74.75.76. 
77,78,32 

18160 DflTn79,80,81,92.83,32,32,64,85, 
86,87,32 

18170 0RTAO8, 89, 99, 91.92.93,94,93,96, 
97,98,32 

16180 DRTR99, 108, 101, 102, 133,184.103, 
196,107,108,109,110 

18269 DRTR9, 0,0, 8. 1.3.3.3,0,8,0,0,63, 
0,0.0 

18201 DRTA8, 9. 3. 8. 63, 0,0. 7, 0.0, 0,0, 60 



16211 DRTRI6.16,3.9.9.9.0,0.12,1,2,4, 
8. 16.32.32.32,0.8.0.0.8.8,9 

16212 DRTA 1 2, 7. 8, 0.0, 0,0, 0, 3, 48, 0,0, 1 
.1.1.3 

16213 ORTR14,7,7,31,63.63.63.48.0.0,0 
,32.32.48.48.24 

16214 DRTR2, 2. 2, 2. 2, 2, ?, 2, 32, 32, 32, 31 
.0.1,2,4 

16215 PATR0, 9,32, 32. 32, 9,9, 9, 7, 13, 28. 
23.1.9-1,8 

16216 DRTR8, 9,60. 1-50. 38. 19, 17, 8, 24, 3 
2-8.8.3.3,0 

16217 DflTR4.4,4,4,8.8, 16,16,0,9,9,0.8 
,7.36,32 

16213 DRTR0,0.9,7,36.3.14,39,8. 16.32, 
9,48,16.16-16 

16213 PRTR9.9.0.9, 1.1.3.7.0,19,30.60. 
69,36,48,32 

16229 DRTR32, 16,8,7.8,0,0,0,0.1,6.36, 
0,8.8,8 

16221 DRTR9,3,31. 12.32,7,3.57,0,8,32, 
17,17,33,30,14 

16222 DATfl33.36,0,8,32.16.16.8.4,4.3, 
0.0.0.0.3 

16223 D8TH7,9,49, 1,2.2.4,4.32,0.0,0,1 
.2.4.12 

16224 DATA1 1,27, 23, 38. 14,8,12,16.2,4. 
4,8.8,16. 16.16 

16225 0RTA7, 4, 2, 1.0,0,0,8,8,8,16.32,0 
,0,0,9 

16226 ORTR3.0,O,0.8,B, 13,48,52,4,4,4, 
4,4.63.0 

16227 DATR16. 16, 32. 32. 32,33,63,7, 0,0, 
3, 12. 43.0. 63, 48 

16228 DRTA9. 15.48,8,0.0.62, 1,0.69.3.9 
.0.0,0,8 

16229 PRTR0,9,0,32.16,16.16.16 

17908 REM 90000 0090000000000000000000 

17801 REM 

17902 REM Grjnd SCHTRCUMPF 

17883 REM Q 

17804 REM 000000990090000000000000000 

17803 REM 

17019 117190 

17030 PERDDC 

17949 FOP 1 = 8 TO 93 READ TttflVHEX 

17938 FOR I » «B880+<33*8> TO L 
DC*0)-1 ;RERD PD'POKE I.RDrNEXT 

17060 RETURN 

17190 DHTA79 

17113 D0TA32,32.32,32,32,32,32,32,32. 
32.32,32 

17120 DRTR32, 32, 32. 32.33,34,33.36.37, 
32,32.32 

17130 DATR32.32.32,38,39.48,41.32.42, 
43.32,32 

17140 0ATR32.32,32,44,43.46,47,48,32, 
49,32,32 

17130 DRTR32- 32. 39. 5 1,52, 33, 64,33. 36, 
57,32, 32 

17169 DATA32,32,33.39.60,61,62.32.63. 
64,65.32 

17170 PATft32.32.66,67-69.6^.70,71,72. 
73,74,32 

17180 DRTA32, 32. 32, 32,73. 76.63, 77, 78. 
32.32.32 
17209 DRTA9. 0.9, 3, 4, 8, 16. 32. 3. 7, 56.0, 

17231 DATR8, 63. 0.0. 6. 9.0. 0,3, 32, 28, 6. 
1,0,8,0 

17202 DATR3, O.0, 0.0. 32, 16, 8, 1.1.2,2,2 
,1,0,0 

17203 PRTR0, 0.0. 9, 9, 9. 63, 9. 9. 0.0. 9.0. 
0,53-46 

17294 DRTRO. 0.8. 8. 0,8. 56. 9, 4, 2, 1,9,9. 
9-0.0 

17293 DHTA9- 9. 0.32, 32. 16. 16. 8. 0,0, 0.9 
.9.1.1.1 

17296 DRTAO, 1,1,14,48,8.1,31,32.33,62 
,0.4,9.40,1 

17297 DRTRO, 43, 9, 9, 9.55, 9, 36, 0.9, 0,8. 

0,0,40.40 

17296 DATA6. 4. 4, 4, 2, ?, 2, 2, 0,0, 9, 3, 1,1 
.1.0 

17209 DHTR13. 16,32-32.0.0,0.32.28.41, 
18,13.7.2,1,0 

17219 DRTH62.4.8. 16,24.48.33. 14.3.4,8 
.8,16.32.0.0 

17211 DATR4, 2. 2. 5. 9. 9. 17. 32, 0,0, 0,7, 2 
4-32,0,7 

17212 DRTA1.1. 1.33,25.5,2.38.1. 10.18. 
20,29,20.42,28 

17213 0RTR16. 44, 35. 32. 32, 19.9.4.0.0.6 
2.9. 16. 15,3.35 

17214 DATA9, 13. 8 . <*■ f,. 56. 49.43, 1 .58.6." 
2-34.34,2,28 

17215 PftTR63. 0.0. 0,9. 0,0, 9.1 0,32, 12-3 
.3,1.5.3 

17216 DRTft0.9.9,9.9.0.32,O.8.4.18,3,7 
.0.0.0 

17217 DRTAO. 8, 0.32. 48.20. 12. 3, 3, 1.0,0 
,0,0.0.32 

17216 PRTR50. 37. 9,0. 0.0. 0,0. 32. O.0.O. 



19293 DRTR8. 0.0,0,60. 3. 0,9, 3, 3. 3, 3, 3, 
33,19,13 

16204 DRTRO, 0, 0.0. 3.3,63.63. 13,14,6.3 
,0.8,63,46 

1B285 DRTR8.8.8.8.8.9,62,63 

18206 DRTRO, 9. B. 7, 24, 32, e. 0,9, 0.63.0. 
9.9.9,0 

18287. DATR0.9.48.14. 1.0,0.0,9,0,9,9,4 
8,12,2,1 

18298 DATAB, 9, 8, 4, 3, 0,9, 9, 0,9, 9,3,32. 

18289 DATA8, 0.1, 0,9, 0,53. 0.3. 1.48, 12. 
14,31,63.31 

18218 DRTR63.63,48.24,6,33.24.13.48,6 
3,9.0.0,31.12,0 

18211 DRTR63,6?.3.6.28.33,7,31,36.49, 
6,30.39.63.33.31 

18212 DRTRO, 63. 0,0. 28, 33, 34. 34. 9. 9.0. 
0.0,63.0.0 

18213 DfiTAl.l, 1.1,6.36.0.0.9.0.0,0,0, 
9,8,24 

18214 DRTRO, 0,1, 1,1,1,1.0, 15.62.62.50 
.69,24.56.16 

18213 DATA15.0.7.24.48,32,32.32,63,48 



18216 DATR32,62,1.9,9,0,0,0.1.1.49,8, 
12.6.6.5 

13217 DftTA34,34,4.2,l.l6,8.15,3.3-0.0 
.0,32,32.0 

18213 DRTRO, 0,8, 9, 0.24, 36. 60. 0.0. 1.1. 
1,1.1.1 

19219 DfiTR40,60.2.26.2.33.26.2,16.16. 
16.16.8.8.4,4 

18220 DRTR16,30,31.60,36,48.1,2.8.0.6 
3,0-8,31,32.0 

10221 DflTAO. 1.63.0.0.36,7.9, 12.60,62. 
14,6-2.2.32 

18^2^ HflT 836.26.29.4.4,*!. 8. 16, 1-1,1.1 
,1,1,1.1 

13223 D8Tft2,26.2.3B.26.2,2.26.1.1,l,1 
,1.1,1,3 

13224 DATR2.26.42.42.42.42, 43, 40. 0,9, 
1.3,3,7,4.32 

18225 DRTA2.63.63.63.*.3.*;5.^,I9.4.e,P 
.32.32,48,48,36 

18226 O8TA9,B.l.2.3,4.6.8.32.32.0,O,P 
,49.24,8 

18227 DRTRl,l.l.3, 5 ,ie.ic,,5,22.22,22, 
22.22,23.31,13 

18228 DRTR3. 3, 3. 3. 3. 3. 4. 8. 63. 52. 52. 60 
,60.63,20.20 

18229 DRTA33, 32. 32.32.32.48-3.52.35.7 
,7,15,13,23,33.33 

18230 DflT869.60. 62. 62, 63. 63.49, 33.O.0 
.0,0.0.0,33.30 

18231 DATA8, 9.0. 8. 9,1, 62, 0.I6. 16.16.3 
4.34,1.5.3 

18232 0RTR8. 8. 3. 4, 36. 36, 36. 4, 5,3, 3. 3, 
3,3.13.16 

18233 DATA13. 15. 14.60.69.60.62,41.8.3 
,4,3,1,1,1,1 

18234 DATA21.21.28.33.28.0.9-32.21-55 
,12,60-2,2.2,4 

18233 DRTAO, 0.48- 8.8.8.9, 10,32.32.32, 
32,32.32.16.16 

18236 DRT832, 33. 33. 32.32. 32. r^2, 32.0.3 
2,16,32,0,9,0,9 

18237 DRTR33,33, 17, 17, 17, 17, 19. 19.3.4 

18238 DATR37,31.8.13,16.16.16.16.40.4 
8,40.47,36.0,0,0 

18239 DRTR32.32.32.0.32. 16. 16.32 
19000 REM oo90oooooooo0oooiooooo'o r .oo 
19891 REM 
19802 REM CI! JOUROAN 
19003 REM 



17219 DRTRa.«.9.9.0,fl,n,3.e.0,9.O,l,< 
.39,34 
17228 PRTR12. 13.8, 52. 32.0. 32.0.0.40. ( 



17222 DATR60. 0,0. 0,0, 0,0, 0,23, 8, 0,0,0 
.0.0.0 

19000 PEM OOOOO^noOOOOOOiinoOOOOOOOOOO 

18001 PEM 

18092 REM lo» DRLTOH 
19903 REM 

19994 REM 0090000000000"0000009000000 

16095 PEM 

18010 I 19190 

1W539 PERDDC 

18949 FOR I ■ O TO 93 READ !Mf I (HEX 



19830 FOR 1 • ■B998*<33*8> TO «B890*' 
DC«8>-1 READ RP POKE I.CDNEXT 
19060 RETURN 
19100 DRTA81 
1911ft DRTA32,32.32. 33, 34,33.36. 37. 38. 

19120 DRTR32.32.39.40.32.41.42.43.44. 
32.32,32 

19139 DRTR32.32.43.46.4?.40.49,38,il, 
32.32,32 

19148 DRTR32.32.52.33.34.35.36.57.38. 
32.32.32 

19138 DRTA32.32.59.60.6132.62.63.64. 
32-32.32 

19160 PATR32, 32,63.66.67. 32. 66.69, 70. 
32.32,32 

19179 DRTA32. 32, 32.32.71.72,73-74,73. 
32.32,32 

19190 P8TR 32, 32. 32. 3?. 76. 77, 78.79.80. 
32.32.32 

1 9290 PRTR9 .9.9.0,9.1.7.28.0.0,0.13.3 
048.0-0 

19291 DRTRO. 8, 3, 63. 0.2. 1 .0.0.0. ^2. 61 ■ 
3.0,32.24 

19202 DRTRO. 0.0, 32,48.12. 2. 1.0. 9.0.0. 
3,0.0,32 

1920 1 DATflO.0.0. 1.1, 1.3.2.28,36.49,32 
-,0.0,0.0 
19204 PfHfl0.0.2.1,0,fl,0, O .6 1 1.1.32. 

13295 PATRO.O.n.TK.lf.ie.ZO.JO^O^. 
5.6.C 2.2-2 

19296 pflTA2.4.4,20.14.'».n.;.'4.n.n,0 >, 
J. 43. 13.0 

19207 DRTR2- 1 1.32,15.0.63.0.0.0.32.4 
8.44,33,32,32 

19208 PATA0.4.4.4.4.4.36. 15.20.20,20, 
24.25.19.32,36 



19209 DRTR2 . 2 . 1 9 • 5? , 52 . 40 . 49 , 4S . 1 3 . 8. 
3.8.4.4.4.7 

19210 DRTR63. 9.0. O.n. 9.9. 48. 62- 0.0.0. 
17.30,16.16 

19211 DRTR23. 23.32- 32-9-0.0.0.0. 32-24 
.4-8-0,43.48 

19212 DRTfll .6-12.16.9.0.12.12.32,32-3 
2- 32- 32. 32, 32- 48 

13213 DRTR8. 13-9,9,8. 12.4,3. 12.35.56, 

19214 PATR16. 32-8. 0,9. 0,0, 0,0, 0.9, 9. 2 

19215 ORTR60, 4, 6. 6. 14.69.0,0.16.16.16 
1616.t6.16.16 

19216 PRTR1. 9, 9. 9. 0.O. 0-9. 32. 48. 31. 7. 
0.0,9-0 

19217 PflTft0,0.48.48,32.32,4S,60.9.0.0 
.16.15.0.0.0 

19218 0RTR8. 0,0, 0,1, 3, 5, 28. 16, 48.4S.3 
2,32.0.0,0 

19219 DRTR35,32.32.32.19.20.|2.13.1-3 
6,7,0,46.15,0.63 

19220 DRTR63.2. 2.33. 27.63.36. 39.48.0. 
0,0,7.56.0.63 

19221 DRTRO, 0.0, 0.32. j Z . j 2 , 32.4,4,7,9 

-0,0.0.0 

19222 DRTR3. 69. 0,9, 0,0, 0.0, 60.3,9,0.0 

.0.0,0 

19223 DOTAO, 48. 15. 0.0. 8. 0,0. 32. 32. 32. 

0.0,0,0,0 

20009 REM ooooeoooooooooooooooooooooo 
20001 REM 
29902 PEM O ijn SCHTROUMPF n 
20093 REM q 

20004 REM OOOOOOOOOOOOOOOOQOOOOOOOOOO 

20005 REM 

20010 129100 
2O03O RERDDC 

20040 FOR I ■ 8 TO 95 ■ RERO TrKIl'NEX 

20030 FOR I - •B890*O3*9> TO »B800+< 
DC»8>-1 PERD RP POKE I . RP ' NEXT 

20060 RETURN 

29180 P8TR98 

28110 DRTR32.33.34.33.36.37.38.39.40, 
41,32.32 

20120 0RTR32.42,32,32.32.32,32.32,32, 
43,44,32 

20130 DATR32, 32-43.46.47, 46. 49, 32. 32. 
32.50,32 

20140 DRTR32.32.51.52.53.54.33.36.32, 
32.37,38 

2015O DRTR32.59.60,61.62.63.64.65.66. 
32,67.68 

20160 DRTR32.69.70,7l,72.73,74,32.73. 
76,77,78 

20179 DRTR32,79,80.81.32.82.83.32.84. 
63.86,87 

29180 DflTR32,86.99.90,91.92.93.94,93. 
95,97.32 

20200 DRTft0,9,0,0.0,#.O, 1.0,0,0,3.12. 
16.32.9 

20201 DRTRO. 7. 36, 0.0,8. 0.0. 31. 32. 0,0. 
0,0,0.9 

23202 DRTR63, 0.0.0, 0.9,0.8.63. 1.9,0,0 
,0,0.0 
28283 DRTR32. 62, 3, 0.0. 0,0, 0,0, 0,32, 24 

202O4 DflTAO. 9.9. 0,9. 0.32, 16. 2, 6. 4, 4, 4 
.4.2,1 

20293 DRTRB , 4 , 2 , 1 . 8 . 3 . . . . , . . 32 . 
32.16.24 

20296 DATR32. 24, 7.9,0,0.0.0.0,0,63.0. 
0.0,0.0 

29207 DflTAO, 0. 63, 24, 16,49.32.31.8.0,3 
6, 0.0, 3. 31, 32 

20208 DATA0,O,0. 0,0.0.60. 0.8. 12.4,6.2 
.3,3,1 

20209 DflTAO, 0,0. 3. 4, 24. 32. 32. 3. 24. 48. 
0,6.0,0,31 

20210 DRTR32, 0,0. 0-0. 3. 4, 40. 0.0, 0.0.0 
.48.8,11 

28211 DflTAO. 0.0. 0,0. o.l 5. 40. O.o, 0.0.0 
.8.62.6 

20212 DATAl.l . 1 . 1 .0.0.0.0.0,0.0, 32, 32 
,32.32.32 

29213 DRTR7.8. 16,32.32,32.32,32,37,3. 
2-1 .0.0.0.0 

28214 DflTR60.32.O.O.33,29,24.3.O-O.14 
.49.2.4.0.0 

20213 PRTA0. (3.49.32.0.0,0.0.0.56-4.2 
.2,4.4.8 

20216 PRTfl?.?.2,4.4, 1.0.0.9.0.0.0.0,0 
.12.16 

29217 PRTRO, 0.0-0, 0.0. 1-1. ?2.32. 32.?2 
.32.32.32-9 

20219 PATA32. 32.32. 48, 24.48. 36. 35,0.0 
.0.0.9.0.0,32 

20219 OATR 1 5. 7, 6. 2. 8.0- 0.0, 0.6. 14,28. 
24.3.O.0 

20220 DRTRO. O.l ,6.36-0.0.0.16.32.9.0. 
0.0.0.0 

20221 PRTA8.8.8.9.6.O.O0.0.0. 13.48.0 
.8,0.0 

20222 DflTAl . I .33,31 ■ 3. I 0.0.0.0.80, O 
.9.32.32 

20223 DRTR32.16. 16. 16-8.9.4.2.31 -O.B, 
16.8.6.1.0 

20224 PATA0. 0.0. 0,0. 0,32.28- 0.0. 0,9.0 
,0.0.1 

20223 DRTRO. 0.14.26,8,24.36.50-0,0,1. 
6.0-0.00 
29226 DATAO, 13.63. 13. 15. 14,28.48.0-36 

20227 DRTfll 6. 16. 16. 16. 16. 32-32.8. 1 -0- 
0,0.0.0.0.0 

20228 DRTR0. 48, 12, 3, 0,0, 0.0, 3. 0.0. 32. 
20.3.0.0 

20229 DRT063. 7. 0.0. 0.60. 3. 0.63, 63. 7.0 
.0.1,63.0 

20230 DRTR5O.36.60.24.0.63,0.O.0.1.3. 
I3.60.0.0.0 

20231 DRTR48. 36. 60. 15. 1.0. 0.0. 0.0. 0.6 
3.60.0.0.0 

20232 0RTR2, 12.24.32.0-9.9.0 
21090 RETURN 

22000 RETURN 
2T!90 RETURN 
24000 RETURN 
23000 RETURN 
26900 RE 1 URN 
27PO0 RETURN 
28000 RETURN 
29000 RETURN 
10090 RETURN • 




la page pedagogique 



la page pedago= 



C'est un programme de mathematiques que nous propose cette semaine Andre MARADAN, un enseignant Suisse. Qui a dit que le 
programme nsquait d etre looooong ? Vous avez egalement droit a la suite des drapeaux du programme de Bernard AUDOURENC. 



OPERATIONS 

COMMODORE 
64 



Ce petit programme Iraite des 
operations (+ .-.- ,t) dans les 
nombres rationnels. II devrait 
rendre service a mes collegues 
enseignant les mathematiques. 
En effet. les nombres etant 
entres dans le programme, ce 
dernier retrace toules les etapes 
indispensables pour arriver a la 
reponse : simplification, recher- 
che du PPCM, PGCD et extrac- 



tion des entiers. Combien de 
fois une reponse fausse nous 
oblige a refaire le raisonnemen! 
de I'eJeve ? Avec ce logiciel, il 
est possible de rentrer les don- 
nees au point de decrochement 
et ainsi de tester si !e reste du 
raisonnement de I'eleve es! 
exact. 

Andre Maradan 



Le programme est ecrit 
sur Commodore 64. mais son 
adaptation sur n'importe quel 
ordinateur ne devrait poser au- 
cune difficulty : pas de peek ni 
de poke, il est presqu'en basic 
"standard". Sachez seulemen! 
que les caracteres graphiques 
ne servent qu'a la mise en 
page et que GET est Instruc- 
tion qui permet de rentrer un 



caractere "a la volee " a partir 
du clavier. Le reste des ins- 
tructions est commun a 
tous les basics . 

La redaction 



te psikt-.t 

se rrint-«ofatioi*€ls.* 



< OFERftTIOrri ( 



> A'/EC LES NOHSHES 



209 REn AFFICHflOE DCS COMSIOmES 
218 REM 

229 gosub2e:-3 



i GOSUB1890 

) REM HISE EN eE-=EP.E 0£S .«_EL*i 

} REM SI NLLE OP BYEC HEMES INHERES 



339 FR1HT-.J- 



BE" IMPRESSION 


SANS REPyNTE 


GOSUE1570 

RE" ROUTINE DE 


SIMPLIFICATION 


«$•«? E9-B7 

gosub ?ee 

A7-H8 iB?-B8 
A8-C7 ,B9-D7 
GOSUB 709 
C7-R0 : D7-B3 
GOSUB 1670 
REM 

Rsn cmoix er effectuation ce l operation 


gosub?30 

REM IHPFESSlQH 


flVEC REPONSE 


GOSUBI419 

REM EXTRACTION 


DES EHTiERS 


IFHB3'.A3».A£S<K 
REM CHOIX D-'JM 


-■THENGOSUB1030 OOSUB 1798 
•toy/EFuJ IFFf-HIL 



3 PPINT.RH— >f«..iTRE OP. ftVEC "EMES MOMPRES- 
F- [NT ik.:--;hi..7=E r F . h ■; :. r„.:-F£ £i ;,; fr^F E;-T 

8 PRIHT"WC~>flEflMBCi1l 

3 GCTflj* IFA»-"TH£M 660 

9 lFAt="A-THEN 5OSUB2!70 GOTO 349 



£93 IFAI--B-THF.il GOTO 248 

•■1-0 IFR*="C-TwE.H 00 Hit. i-IiJii 0OT0639 

63-5 GOTO 660 

709 REM SImRlIFK.fhiop, n ui.E ff-CIIO" 

710 REM 

729 REM 

,--.;. R£H ENTREE W.OT US 



770 IF ftSKP THEM H?=-F» 

rso BS-B3 
-;-*■ gosub 330 
300 as-as/a;. 

920 RETURN 

S30 FEU CALCUL W PGDC SELOtf EUCUPE 

340 REM 

930 REM EMTFEE R9.B9 ENTIEFS WW NEGATIFS 
?•;■:< FEU SORTIE FT* ■ PGBC DE R9.B? 
379 REM R9 VARIABLE LOCALE 
990 IF B9<-8 THEN 949 
350 R9-fr9-B9IINT(A9."B9> 



929 GOTO 880 

939 RETURN 

9*9 RETURN 

939 HEM 

969 REM CHOI/: DE L'OPOBttlCW 



IF^i-ithengosubi 119 return 
i ifx1-2thehg0subu19 return 

< :F..1.3TKEr«HJB13ia RETURN 



1 DES ENTIERS 



4«HBS<ft3.- 

1009 FM-H4 : 8H.ES 
1990 GOSUB 7 



HO? RETUM 



ADDITION ET SOUSTRftCTlOU DE DEUX F 



1149 REM ENTREES NUTKS) H7.C7 
1139 REM ENTREES LEWS) 87. D7 

■-:- ?-::-. ;;-::t . -rir 

1170 Ft3-B7:B9>D7 
11S9 00SUBO38 
115.? f = = '.E7»D7J/H9 
1209 «««?•'. B3VB7) 
1219 C5-C74(B3/D7> 

" '"" 7 THEN A8=A3-C3 GOTO 1240 



1220 IF X _ 

1230 FI5-H3+C3 

1249 RT7«FI3 

1236 C7-C5 

1269 B7T3:I!7-B3 BS-BJ 



1290 RETURN 



iwo ppntT-rr 




WCTI0K8- 

:tiohs- 



i**0 if.:?. :',(>'■:.-. imt-.ivi.i: -»>»»»* 
ir-ro- ier>:M«T'i.:- -c;:--i.-E'- :'.t : .- t 

-.-kJ if;;.- ; .,- . r 3 ,r t ;■ _..■ , '^..;,..,i 
1070 BETl^TI 

20S0 FEM InFUESSKM 50I0NEE 

r»?« rem 



r RIHTTflB'23.. _ 
■> PP1NTTHB^23- «' S-- 
i RETI.iRN 
a REM MULTIPLICATION BE j 



3 GOS-JB 700 
? RETURN 

) 5En li:v;7jr. T ;. E ;. Eu , fFi.lTK..-.; 



3 B8-BMC? 
5 GOSUE 1419 
J GOSUB 709 

= REIURM 

3 REM IMPRESSION 2 FRFC ■ 




1709 P£H IMPOfJilOII ftvEC ENTIEP 



1370 PP|H-nPB'2?--C-.BS 

i ;?•-.' -■ ' - 

l=.w REn PRJSE ITS ; RRBCiiOHS 



PE/1 ENTREES ... DU CLAVIER 
^ REH VARIABLE? ty.iM'-j A?.C9 
t > c £ :, inrHELES IF".;. 89. B3 




;;.?» r 

2219 1 

2220 i 

22?.? ; 



.. _ — > BDDIT|i?N- 

I 2 — > SCjSTRACTIO"- 

II 3 — > MULTIPLICflTI'tl- 
« 4 — > DIVISI0N- 



2i7f< r 



•:i-3THE«Sf."»- 
1 IF*l.4TM6HM«V 

7-B9 C7-C9-D 



COmSIGnES RC'JR UHLI3EP LE PF>3GPAnrE 

'■■ FF-:„i-.T KW „.-,-..|.f. : --...;..: ;.-.,. ..-.jt-e ,.e;. f.:«3I&lES- 
3 FPINT"l»f>C"JR UTILISER CORRECTEnEin CE PRO-" 



2360 
2379 
2380 



run: mte Ft,v*»mE- 



1LUEF 'UHICIEUSE-1ENI- 




ETPE POSITIFS- 
IVEKI ETFE f«.E" 

:uf. sow- 



. (T"O)SVE2-V0US COMRRIS •r-'JI/HOli) 
9 OETM IFaj-**THEH2«e 
*-j-6 lFPf-M-TMEt'2370 
:■*.*'"■ =-H -■-!— H 
1330 RE" RESERVE vf-lEuf IhI1ir*.E 

2369 FEM - 

•r-n -? r a; ?■-.,?;■ r ?.:;.: ;;-=r,- tfujcj 
23 J-? F en '.'.ii|-!( [,-rjc ([-:•'( 

2399 RE" 

2690 RRINT-.--- 

2618 FOR I>1 TO 19 

2629 PRINT T«<5*I>'-WH* REVOIP- 



illNFUT"->l",B9 



DRAPEAU surT07etM05 Suite duN 53 




6319 IFKI--ILES SfiM0(.-THEME"7:C0SU89ee:>: 
E-79:VE=9-|;OSUB3 30: (E = &3: C0SUB33B:XE = 5B: 
YE-34:C0SUB-!-fi': -r. ,-..1^ vr. -2'.:r,rjSUB339:>;E»9 
»:r£.44:t;OSUS33B:B0"Tie.B3;-'319, 174 >,n: 
BOXF(168,0>-<319,37i,C:COTO995B 

6320 IFNtr'JLES SALOMON-THEdE-7: C0SUB998 
■ KE-&3m*>4I:r J n' ; \!?n73: <S ; v.: YE-2&:r;03UB3 

■■:;■■ ■■<:!.;-;:n,-j!;r. -i: '. 



6321 IFM»=-ILE5 SOLOM0B'THENFORL0M=8TO16 

2:LI«'ll,I74>-'319, I2*L0MI,C:jlE:<T:r0RSA 

L-8T010:LI«E<8. I64.SAL >-(309*SAL.B>, A:L I 

«<10-S*L,I74>-.319, IB-SOL >,«[ NEXT :F0ROL 

'BT0B:LIIlE(18-AL,174l-(319,ie»AL),-3:ME>; 

T:COT09WB 

6J3B inw- a OUCMM*THEMCI 

• 

633-j !F>ll--fl)li:r,U.lMMEHSCPEE>l7,B,5:B0XF' 

110, 1161-<215, 173J,-a:B0XF(70,73)-<a5B, 1 

l3),C:COL0RA:FOHAMT-BTOI741LIME(16e,I74> 

-(8,0-fi«rU:LI«E'I6B, 174j-!319.B*0»<T):MEX 



63B8 B 

6399 B0>:F<2!3,e>-<3J9.l74>,C 

6393 C0TO995B 

64B0 irNfTUWISIE-THEN R.4B-!>IS-7:605UB 

30B>t>IS.-aiR-3B:CO5UB5B5iOIS-7:R'36:Dl'-l 

<.7: [LOSUBSOS: COSUB3B9;C0TO993B 

" "" IIE'THE" t>-5B:[>lS'7:r.0' i tlB 



f\,'^-y.;_: ::'.<i',npiff. 



386IDIS--2 

COT 09MB 

6420 iri««"*M6URITAKIE-THE-<SCREEHO,B,3:0I 

S'3:COSUB63B:DIS--1irJ>C-168iR-7510V33:CO 

SUB6K:CDi.tiR;[:r.r;T,ijiJ(fiH:r,UT0993e 

" " •)IS-7:R"65iC&SUB 
:OlS*-3iDX-lB0:t' 
':G0SUB30BiCDT09 



r-£(,:[>*65:r,03UB593:C 



6435 IFNI.-f.LCEPIE-THE>IB0xr'B,e)-<168,I7 
*'.fl:B0Xr<16i,8i-'3l9. 174), E:OIS--ZiC0SU 
B6B8:&]S-2:R^-i*:£.:^ l.',;i^r,tr,UIi6B3:CX- 1681R 
■ 4BIDI3--8IPSET' l'.^.47'.7:PSET!i69, 1?7>, 

■■ ■■ Vj-^lhwy. COLOR I s GOSUB 388: C0TO9«B 

6448 iMt-*H*Li/r;r •iHr«:.c*EEK7,B,3:rjis« 
-:R=.'a:CDSuBr.*-J.::..-M/^in:.---j:Cti^uB3e3 

6441 IFM*--n-i.MVE' - IriEHiril/F'B.B)-(319, 3 

B',CIB0xr<289. 31 --11 9,174 '.OOO/Fc 9,31 > 

-'38, 174).C:D(.::F'?:i, 1 * i ■ • '2B9, 174),CHiOT 

0993B 

64B8 IF«« = -ni,LBI?lE-THEMt05UBI I891C0T09^ 



o4B3 IFK».-9IMGAf0UR-THEMSCPEEN6,B,3!B0)( 
f'B, 8B)-C3I9, 1 <-4.i" = 2' J tDL)>60:C'Py.44>[-Ol 
',= 'ir,rj' J iJB3;^i[,[.IS--2:I)DX'67>C0SU8333 
6466 IFM-'SIMGM '■■ H'lHI MC0UUt7'ISO8UB9tfl 
t/E-ieiiTE.I2ir;r.iV.K. I :»: :• I • I20: t.rjSUB33B:): 
r.-»81YE"3aiC0','JM3.M:Vi-138iC0SUB33BiK£'l 
IBi VE«64icDSUB330:COTO9930 



IS- -2 = GOSUB tl.-: ■-■■■■'•• ■•■■ i -•■■■ ■■-'-.'■:'■■ i;'-i.-. 

6491 IFMr='COMDRES-lHE)<CCIL0Rh:C0SUB91B:/ 

E = 59!YE'48:COSU833B:TE-68:COSUB339:)iE = B0 

:VE-38:C05UB73H: r£: ,^: CiiSi'S33BsC0T09950 

65B0 IFK«=-ETflTS-UHIS-THENG0SUBlBBB:CDTO 

9938 

651 B IFIH''C«IIA0(.-IHEM(;DSUB28BB:G0T0995e 

7888 SCREEN7,B,3 

7061 IFX*=-ORCEHTIWE-THEN&IS = 3:S0L«B,4;C; 

OSUB4BB:R=B:COSUB501 

7BB2 IFNI"'JAPON - 0PHl = -BANCLA['ESH*THENDI 

S»l:»=5B!t;0SUB5a8:GOTO995e 

7B04 lFNI-'LO0S-THE>tt>lS"7tR.i;:COSUB5BB 

7BB6 IFN* = -MICER'THEHDIS-I;R = IS:i;DSUB38e 

7BBB IF«».'I"OE-THE>IOIS=4:SOL=e.4:CDSU84 

B9 

7B10 IFMl^-MRLAUI'THEK IS- 1 : C0SU84B5: BO 

Xf !B,5B)-<319, 116), I:C0T072BB 

7012 ir«t--xEPAL'THEB[;osuB24ee>CDT0993e 

7829 IFm-""flURU - lMEKSaL'e.4trjIS-71CDSUB 
487:B0XF<B, 72>-'3ir<,182).3:C0T0993B 
7825 IFHl-'OMftK-THEH SCREEN, B, 3 1 BOXF < 1 B 

ONl*iL0C*lT£5, 3:PRI>lI0nn"21:B0xr(lB7, 105) 

-(319, !74).C:ATTRBB,OtCOT09959 

7B39 IFM*>'HARrjC"THEIISCREEIU),8,31LIHEU6 

9,57)-<142,llB):L!NE-tl8B,77):LI»IE-<!3?, 

77):LINE-<I7B, lI8>:LINE-(169,37)iG0T0993 

319, 39), a 

-C3I9,1?4>,C 

THENBOXF< 

ILAMCE'TH 



7B48 B0xr<9, 

7288 BOXTtB, ... 

7282 irxt-'EMlRATS ARABES I 

e.B>-<94,174),l 

72B4 1F»»-'C0STA RlCA"ORm° 

ENB0XF<»,38)-<319,6B),7iBO)i. n,iui-uii 

,143), 7 

7286 )FN»-"CAMBl£-ORIH'-B0TSUflNA-0RI<»-'S 

URIHflM-THE«B0XFl«,36)-t319,6B),7lBOXr<B, 



73BB irHl.-r,HBHO-THE«E.B:1.0SUB38e 

7382 IFK*-*rEtIEH MDRO-ORm-"IRAICDR«*''S 
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SPECTRUM PLUS 
PAS GRAND CHOSE 
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super- 
b6le du baste en moins de 
quinze secondes grace a mon 
Spectrum", un super-pack gra- 
tuit de six sods, et heureuse- 
ment que c'est gralurt parce 
qu'il y a gros a parier que vous 
n'aurrez pas achete les cas- 
settes de loutes facons, et un 
manuel qui selon nos sources 
est neltemenl plus nul que le 
premier mais entierement en 
couleurs. ce qui est tout de 
meme. convenez-en. plus 
agr&able a I'oeii. 
Trois petiles choses: le boitier 
de I'alimentation a change, 
mais rassurez-vous, c'est la 
meme chose a I'interieur. il y a 
une touche Reset qui permet 
de vider la memoire sans de- 
brancher I'apparei!, el derriere 
le Spectrum se trouvent deux 
pattes qui permetteni de sure- 
lever la bete, mais qui bousit- 
lenl irremediablement la peri- 
tel. Dur. dur! 

Alors. Spectrum plus quoi? 
Plus cinq cent francs. Mais vu 
de votre cote, c'est Spectrum 
moins, puisque eel argent sort 
de VOTRE poche... C'est le 
prix de la beaute. Allez. 2230 
Francs sans peritel. 2590 
avec. Je n'irais pas au-dela. 
Derniere chose (promis!): 
selon des bruits qui courent. 
ou plutot qui se propagent, 
(merci Maftre Capello), le ZX 
81 sera definitivemenl aban- 
donne en Juin 1985. Posses- 
seurs de cette machine, allez- 
vous changer pour un Spec- 
trum plus? 
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les 
Imprimeurs du monde • Merci. 
Monsieur rimprimeur general en 
chel - II ne peut pas, lui non 
plus, ne pas augmenter ses prix, 
avec 24 pages a tabriquer. le 
coiit de ses enormes machines 
ultra-modernes et de son per- 
sonnel hautement qualifie et le 
prix des encres qui n'ont rien a 
envier a I'or noir. Vous compre- 
nez, mon General ? Ce n'est pas 
par gout que nous augmentons, 
c'est par necessite. mon Mare- 
cha! ! Et puis ma petite soeur a 
ele bien malade en 63. il lui faut 
encore des soins attenlifs : ca 
coiite cher, tous ces medecins, 
Excellence. Majeste, Sire ! 
Pleurnichard. pleurnichard, bien 
sorli mais trouillard. 
•24 pages, nouveautes, reporta- 
ges ? Mais, dites-moi, vous allez 
concurrencer les mensuels ? 
Vous gardez quand meme aes 
programmes dans le journal ? 
Parce que si vous diminuez le 
nombre de programmes, je ne 
I'achete plus votre canard, moi '. 
Par centre, avec les nouveautes, 
je peux (aire des economies en 
achelant moins de mensuels, 
c'est bon ca ! Et, diles. on peut 
encore s'abonner a I'ancien prix 
? S il vous plait, allez quoi. 
soyez sympa ! 

Trahi, trahi. trop parle, demas- 
que. 

-Aaaaaaah ! Mais vous etes un 
lecteur de I'hebdo. Monsieur le 
simple inspecteur ? Vous aussi 
vous agitez vos petites mimines 
sur un clavier d'ordinateur ? 
Mais c'est un gentil program- 
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meur ca. madame. 
Triomphant. Iriomphant, hallali, 
gagnant. 

-Mais non. mais non. c'est pas 
moi, c'est mon fils, c'est ma fille 
qui programme, alors pour 
I'abonnement ? 

Suppliant, suppfiant. s'il vous 
plan, quemandant. 
-Bon, d'accord inspecteur aspi- 
rant, vous pouvez vous abonner 
a I'ancien prix, mais c'est une fa- 
veur que je vous lais, inspecteur 
slagiaire. Allez en paix, et que 
Dieu vous garde, mon fils ! 
Divin, dtvin, idole, Esprit saint. 
N.D.L.R ; Propos receuillis au 
magnetophone espion par la re- 
daction cacfiee en tolahle dans la 
cafetiere de Miche et Micha. 
N.D.LR.C : II a bien failli m'im- 
pressionner ce petit inspecteur, 
mais finalement, je I'ai bien eu : 
nous ailons pouvoir nous en met- 
tre plein les poches ! 
N.D.LR.G.C.S : Patsembleu, 
vous n'etes que vils mercantiles ! 
Est-ce un journal de classe, oui 
ou non ? Champagne el abonne- 
ments a I'ancien prix pour lout le 
monde. et Hop! Fi done, et un 
badge gratuit pour les nouveaux 
abonnes, el Hop derechef ! 
N.D.L.R.E.P.C.G.L.G.C.S El 

allez done, rebelole : encore des 
promesses inconsiderees aux 
lecteurs, et c'est encore moi qui 
doit les tenir ! Allons-y : Le prix 
de I'abonnement passera a partir 
du 2 novembre a 420 francs par 
an (au lie.u de 520 au numero) el 
a 220 francs pour 6 mois (au lieu 
de 260 au numero). Vous pouvez 
vous abonner a I'ancien tarif 
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e'est-a-dire : 340 francs pour un 
an ou 180 francs pour six mois. 
El un badge Hebdogiciel en 
prime. 

N.D.C.D.P : Je vous I'avais bien 
dit que je vous aurais au tour- 
nanl, bande de pelits salopards ! 
El paf, 10 francs ! II faul quand 
meme qu'ils me gachenl mon 
plaisir en prometlant monls el 
merveilles ! Mais n'ayez crainte, 
je veille, je vous refais le coup de 
la derniere fois : limite dans le 
temps, li-mi-te ! Vous n'allez lout 
de meme pas gagner 180 francs 
et un badge sur notre dos loute 
I'annee ? Et puis quoi. encore ? Q 
Limite des envois d'abonnemenl : 
le 2 decembre, pas un jour de 
plus. Gniak.gniak ! 
PS : Pour la traduction des 
N.D....etc, reportez vous au nu- 
mero 52- ou cherchez la solution 
dans les pages interieures. 
N.D.L.R = Note de la redaction. 
N.D.L.R.C = Nole de la redaction 
chef. 

N.D.L.R.G.C.S = Nole de la re- 
daction grand chef sioux. 
N.D.L.R.E-P.C.Q.L.G.C.S = Note 
de la redaction encore plus chef 
que le grand chef sioux. 
N.D.C.D.P = Note du cochon de 
payeur. 

O 
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622 


LDX**00 


6513:20 IE 


FB 


623 


JSR4FB1E 


6516:9E 




624 


TYO 


6517 :C9 00 




£25 


CMPt»*00 


6519=00 IB 




525 


BNE 5IDR0ITE 


65SB1R9.02 




£27 


LDRMS02 


651 D 185 60 




£28 


STR»50 


651 F: 20 D6 


Eft 


£29 


JSR TESTCOL 


6522 :R5 61 




630 


LDO»61 


E524!C9 01 




631 


CMP*t*01 


5526 :D0 24 




632 


BNE DESSGLO 


6528 !R9 03 




633 


LDRtt*03 


652ft 1B5 59 




634 


BTR*59 


652C:fi6 CE 




635 


LDXtCE 


652EID6 36 




636 


DEC»5B.X 


6530: 4C 4C 


£5 


637 


JMP DESSGLO 


6533 :C9 FF 




638 SIDROIT 


E CMP"«FF 


6535 :D0 15 




639 


BNE DESSGLC 


6537 :ft9 04 




640 


LDftti*04 


6539 :B5 60 




561 


5TO*60 


6538:20 D6 


en 


642 


JSR TESTCOL 


653E:R5 61 




643 


LDRVE1 


6560: C9 01 




544 


CMP4»01 


6562: D0 08 




645 


BNE DESSGLO 


6544:09 01 




646 


LDRHS01 


6546:85 59 




647 


STR»59 


5568: R5 CE 




548 


LDX*CE 


656fl:FE 56 




649 


INC*56.X 


656C:R9 04 




550 DESSGLO 


LDOH»04 


GS4E:S5 5£ 




651 


STO*5E 


6550 :R5 CE 




552 


LDXtCE 


6552 :E0 00 




653 


CPX)t*00 


£554 :D0 05 




654 


BNE FREOMOX 


6536 :R9 80 




655 


LDOtttS0 


655B:4C 3D 


G5 


656 


JMP VOSUBCL 


E55B:R9 R0 




657 FREOMOX 


LDOM«O0 


655D:G5 5D 




65S VftSUBCL 


STfi»5D 


655F:O0 00 




£59 


LDY"*00 


6561:20 R4 


EC 


560 


JSR CLOCHE 


E5E4:ft9 02 




££1 


LDO»*02 


6566: E5 IF 




EE2 


STft*lF 


E5EE:09 0E 




663 


LDft*«0E 


65Efl:E5 IE 




664 


STOtlE 


E56C:ft6 CE 




£63 


L0X*CE 


656E:B5 54 




E6E 


LDfl*54. X 


6570:85 IS 




EE7 


STft*lB 


6372 :B5 56 




££B 


LDR«5E. X 


6574 :S5 19 




££9 


STRH9 


6576: R5 CE 




E70 


LDR«CE 


657BUB 




£71 


CLC 


6579:65 59 




£72 


RDC*59 


657BiflR 




£73 


TRX 


657C:BD 94 


86 


674 


LDO*E694, X 


657F:B5 1C 




675 


STft»lC 


65E 1 : ft9 E0 




676 


LDON«80 


65B3IE3 ID 




677 


5T0«1D 


6503120 30 


60 


67E 


JSR DE5S1ME 


65ESift9 00 




679 


LDOft«00 


6580 :B5 5B 




£60 


STO»5B 


63BCQ6 5B 




GE1 CRLCRPP 


LDXiSB 


G58EI8D 00 


0B 


EB2 


LDntE00. X 


6591 :C9 03 




683 


CMP»»03 


6593 1F0 03 




5E4 


BED SUITE3 


6583 I6C 01 


BE 


£85 


JMP OUTREPL 



659B!ft6 CE 686 SUITES LD!(«CE 

6590:B5 54 6B7 LDfi*54, ) 

G59CUB 688 CLC 

659D:D5 EE 689 CMPSEE. i 



659F1F0 23 
6501 190 34 
65031R9 01 
5505 :B5 60 
E5O7:20 OR 6R 
6500:05 61 
650C:C9 01 
65OE:F0 OB 
6580 :0D 02 08 
65B3:C9 00 
6SB5:F0 41 
55B7:60 
65BB:R5 CE 
65BQ:B5 EE 
65BC:38 
658D:E9 B7 
658Ft95 EE 
6SC1 :6C 86 B6 
65C4JR9 01 
65C61BD 02 0E 
65C9:20 03 65 
65CC:20 D7 65 
6SCF:ft9 00 
65D1SBD 02 0B 
65D4:4C A3 65 
E5D7:09 03 
65D9:85 £0 
£5DB:20 RR 60 
65DE:Q5 61 
65E0:C9 01 
65E2IF0 08 
£564 :0D 02 08 
65E7:C9 00 
65E9IF0 0D 
65EBI60 
65EC:ft6 CE 
65EE:B5 EE 
65F0MB 
65F J 1 69 07 
65F3I95 EE 
65F5:4C 84 56 
65FEIRB CE 
65Ffi>B5 EC 
65FC=18 
65FD:D5 5£ 
65FF:F0 24 
6601:90 57 
6603 i 09 04 
5505 iB5 60 
6607120 RR 60 
5600:03 61 
660C1C9 01 
6B0E:F0 0G 
£B10:OD 02 0B 
6613:69 00 
66151F0 6D 
6617:60 
6618105 E8 
661R1C9 20 
661C1D0 31 
661 E: 09 3F 
6520183 EB 
£622> 4C 53 £5 
6625109 01 
6E271BD 02 08 
6620:06 CE 
6E2C1B3 EC 
662E:1S 
662F1C9 II 
6631 IB0 0E 
6633120 03 66 
5E36I2A Sfi E6 
6539:09 00 
6E3B:6D 02 0B 
663E16C 03 66 
GB41 120 50 £5 
6B44120 03 £5 
6647109 00 
5643I8D 02 0B 
664C14C 5R 66 
6E6F:R9 20 
6651 IBS EB 
£653106 CE 
6655 tF6 EC 



690 

691 

692 MDNTE2 

693 

£94 

£95 

E9E 

£97 

£96 

£99 

700 

701 



70B YPRREI 



722 

723 
724 
725 EEPL7 



BED YPRREI L 
BCC DESC2 

L0AMB1 

STft*60 

JSR TESTCftP 

LDR*61 

CMP«»01 

BED EEMN7 

LDR*E02 

CMP(t»00 

BEO RXEH0R2 

RTS 

LDXtCE 

LDfl«EE, X 

SEC 

5BCH*07 

STftVEE. X 

JMP DESSOP 

LD0MB1 

STO*B02 

JSR M0NTE2 

JSR DESC2 

LDAttee 

STR*B02 
JMP M0NTE2 
LDfttt»03 
STR«£0 

JSR TESTCOP 
LDftSEl 
CMP**01 
BEQ EEPL7 
LDACB02 
CMPH«00 
BEO OXEHDR2 
RTS 
LDXtCE 
LDft*EE. X 
727 CLC 

72S RDCtt»07 

729 STfl»EE. X 

730 JMP DESSfiP 

731 RXEH0R2 LDX»CE 

732 LDfttEC. X 

733 CLC 

734 CMP»3G, X 

735 BED XI DEM 

736 BCC GAUCHE2 

737 DRDITE2 LDftt!»04 

738 STft»E0 

739 JSR TESTCftP 

740 LDfttei 

741 CMPttt01 

742 BED ECPLI 

743 LDfi»S02 

744 CMP(t«00 

745 BEO DESSftP 

746 RTS 

747 ECPLI LDfl*EB 

748 CMPtt»20 

749 BNE D0NC3F 



STO»EB 

JMP CHCXOPP 

LDRIt»01 

STfl»B02 

l.DX*CE 

LDRtEC. X 

CLC 

CMP»*1 1 

BCS VRG0U2 

JSR DR0ITE2 

JSR G0UCNE2 

LPRN*00 

BTR«B02 

JMP DR0ITE2 

JSR GRUCHE2 

JSR DR0ITE2 

LDON«00 

5TO»E02 

JMP GAUCHE 2 

LDRN«20 

STAtEB 

LDX*CE 

1NC*EC, X 



752 

753 XI DEM 

754 

735 

756 

757 

758 

739 

760 

761 

762 

763 

764 

765 V0G0U2 

766 

767 

768 

769 

770 D0NC3F 

771 

772 CHGXRPI 



6657 :4C E4 66 
665R1R9 02 
665C1B5 60 
665E:20 AA 6R 
6661 :A5 61 
6663 :C9 01 
6665 !F0 0B 
£667 :RD 02 08 
666R:C9 00 
665C1F0 IE 
666E160 
666F:A5 EB 
6671 :C9 20 
65731 D0 07 
6675 ift9 3F 
6677 :B5 EB 
667914C 80 56 
667C:fi9 20 
567E:85 EB 
55B0IA6 CE 
66e2iD6 EC 
65E4:ftE CE 
56E6:flS EB 
6586 :B5 1C 
66B0:ft9 82 
66eC:B5 ID 
66BE:ft9 0E 
6690 iB5 IE 
6692 :R9 02 
6E96:B5 IF 
5696 1B5 EC 
6698:85 19 
6690 :B5 EE 
E69C:8S IB 
£69E!20 30 60 
5601 :A5 58 
6603: C9 00 
6605 :D0 24 
6607:06 CE 
6609 i R9 01 
6£RB:85 58 
5EAD1B5 EC 
66AF1RB 
6680:65 62 
66B2195 EC 
B6B4194 £2 
EEB6IBS EE 
£688108 
6689 =B5 £4 
66BB193 EE 
56BD194 66 
66BFIA3 EB 
56C 1 i A8 
66C2ifl5 66 
56C41B5 EB 
66C£:B4 66 
56CB14C EC 65 
66CBifi£ CE 
6BCDIB5 EC 
66CF:ftB 
55D0IB5 £2 
66D2195 EC 
66D4194 62 
G6D51BS EE 
66DE108 
E6D91B5 64 
66DB195 EE 
66DD194 64 
66DFIB5 EB 
E6E1 lOB 
66E2:05 66 
5EE4185 EB 
66E61S4 £6 
65EE10G CE 
66ER1BD 56 C0 



775 t 

776 

777 

778 

779 

780 

781 

782 

7S3 

784 

7B5 E 

7B6 

787 

788 

7e9 

790 
73 1 
792 
795 
794 
795 
796 



DDNC3F2 
CHGXAP2 
DESSAP 



801 
802 
803 



B09 OUTREPL 
810 

an 

812 
B13 
814 
B15 
BIB 



825 

626 

B27 

828 

829 

830 

B31 OFFPX 

B32 

833 

B34 

833 

836 

B37 

838 

839 



BA2 
B43 
B44 
B43 
S46 
847 
848 



JMP DESSOP 

LDAN*02 

STOV50 

JSR TESTCOP 

LD0»61 

CMP»»01 

BED ECMNI 

LDAt802 

CMP*»00 

BEQ DESSRP 

RTS 

LDA*EB 

CMP*«20 

BNE D0NC3F2 

LDA»«3F 

STA»EB 

JMP CHGXAP2 

LDRM*20 

5Tfl«EB 

ldx*ce; 

DECtEC, X 

LDXtCE 

LDA«EB 

STA»1C 

LDRHSB2 

STflHD 

LDOBtCE 

STBtlE 

LDR*t*02 

STft»lF 

LDfltEC.X 

STBil9 

LDB»EE. X 

STfl«16 

JSR DESSINE 

LDA*38 

CMPHC00 

BNE OFFPX 

LDX»CE 

LDft(t»01 

STA*SB 

LDfltEC, X 

TOY 

LDft«62.X 

STfilEC. X 

STY*E2. X 

LDAtEE. X 

TOY 

LDft»64. X 

STfl*EE. X 

STYi64. X 

LDft*EB 

TOY 

LDft«66 

STfttEB 

STY»E6 

JHP COLCAPP 

LDX*CE 

LDft*EC. X 

TRY 

LDft«62, X 

STft»EC, X 

STV«62.X 

LDA»EE, X 

TAY 

LD0»64, X 

ST0*EE. X 

STY»64, X 

LDA»EB 

TAY 

LDR*66 

STA»EB 

STY«65 

LDX«CE 

LDO»C054. X 

ASUIVRE 




En raison de la 
longueur du lis- 
ting, ce pro- 
gramme passera 
en plusieurs fois. 



16 



ADAM ET EVE 



EVE est retenue prisonniere de la sorciere CARA- 
BOSSE. Vous, ADAM, arriverez-vous a la delivrer mal- 
gre la terrible sociere qui vous en empeche? 
Le mode d'emploi est dans le programme. 



BOYADJAN Alexandre 



SAUZEAT Alexandre 



90 ' ADAN ET EVE realise par alexand 

RE BGVADJIAN ET ALEXANDRE SAUZEA 
T SUR TI-99 B.E. 



120 ' 

130 CALL CLEAR :: CALL SCREEN (1 a > 

140 DISPLAY AT(14,7) : "ADAM ET EVE* 

150 FOR 2Z*l TO 1000 :: NEXT 11 

160 ! 

170 • vBr-iables 

180 • 

190 RESTORE :: SC-0 :s VIE-6 :i VI-. 7 s : 

TEnF = B 
200 CALL CLEAR 
210 ' 

220 -am*, coul. 
230 ! 

240 CALL COLOR (1,3. 2, 2, 14,4,3, 16,2,4, 16, 
2.9,3,5. 11, 13,2, 12, 13,2. 13,2,2, 14, 16,2) 
250 CALL CQL0Ft(3,5,B.6,5,8. 7,9,2, 12, 10,2 

2*0 ! 

270 ■dai. c»r»c. 

280 ■ 

290 CALL CHARI36, "FFB1 423C3C4281FF") 

300 CALL CKAR(40, "FFOOOOOOQQOOOOFF" ) 

310 CALL CHARI33, "B1B1FFB1B181FF8I"> 

320 CALL CHARI33, "81BlFF8181BlFFai") 

330 CALL CHAR(80, "000022777F3EIC08 "> 

340 CALL CHAR(124,"OC007£FFFF7E3C"> 

350 CALL CHAR(130,"0"> 

360 CALL CMARI100, "000OO0OOO30E0E1E101E0 

E0E030000000O000OO080E0E0F0 1 0FOE0E080000 

OOO") 

370 CALL CHAR(76,"07O1413O190D0703O30347 

7F7C0000O0CO60E1E3E6CCFBF0FOFOF9FF1F00O0 

00") 

380 CALL CHAR(8S,-00011B0703Q301O30C0480 

8 1 EB8FFF 7B00C8ECFOEOEOC0E0 1 8 1O00E0F 1 FFFF 

FO") 

390 CALL CHAR(92, -, O0000010101A393F7F7FFF 

2301000000000000080B589CFCFEFFFFA4800000 

oo-> 

40O CALL CHAR(96,"0306070707030F1F376737 

070EIC3B20COaoeOOOBOOOCOESBB90BOCOE07030 

IB") 

410 CALL CHARI104, "OOOOOOOOOOO 1 070 103050 

OOOF7FFF10000000000F080E040E07CFC7CFBFFC 

060" ) 

420 CALL CHARMOB, "OOOOOOOOOOOOOOOQOOOOO 

1 03OF03O 1 0O0O00OO0OO00O00O00000O007FCO70 

000*) 

430 CALL CHARU16, "OOQ0000000O0OIO3081F3 

F3FFFFF7F3F000000000Q00C0E0E0FBFCFCF8FEF 

EFC") 

440 CALL CHARI136, "000112090403010101010 

303O70FO1O3BOCOA4CB90E0COCOCOCOE0E0FOF04 

060") 

430 CALL CHARI120, '000000030I131F1001030 

30B110804O7000000C0C0C0C0B0C0E0EOE0C080B 

060") 

460 CALL CHARU40, "0OOOOO000O00GOOOOO030 

707030 1 OOOOOOOOOOOOOOOOOOOOOOl BBCFCFBFOE 

040") 

470 CALL CHARI112, "00000000003FOFOFOF 1F3 

F7FFFO6O300000O00OODO00B0BOCCFAFFFBCCO6O 

OEO") 

480 ■ 

490 ' decor 

300 ! 

510 TABL'TABL*! :: CALL CLEAR :: CALL DE 

LSPRITEIALL):: GOSUB 1300 :i CALL VCHAR < 

1,1,130,24)1! CALL VCHAR(I,2,130,24) 

520 CALL VCHARU.31,130,24):: CALL VCHAR 

(1,32,130,24)j: CALL HCHAR (24, 3, 40, 28) 

530 CALL HCHAR (t, 1, BO, VIE) 

5*0 TEMP-TErlP-0.6 :: VI-=VI*0.2 

350 IF TABL-B THEN TABL-1 : : RESTORE 

360 READ A.B.C : : IF A=0 THEN 380 

570 CALL HCHAR(A,B,40,C)i : GOTO 360 

580 READ A.B.C.D :i IF A=0 THEN 60O 

590 CALL VCHAR1A,B,C,D):: GOTO 580 

600 ON TABL GOTO 640,670,700,710,720.730 

.740 

610 ' 

620 ' poi. spri *,»» 

630 ! 

640 Tl=4 :; 11-4 it TM-169 :: IM-22 ;: E 

15.E16-I20 :i EB. E 12, E10, El I = 100 :: OB.D 




Tl 99/4A 
BA SIC ETENOU 



J.O 16=76 ; 



12=124 :; 010.011=28 I 
7,018=94 

650 W8=41 :: W10=173 ;: H11-60 :: WI2-16 
7 it W15-100 :: W 16=200 :: M17-1 i: 1418- 
127 : ! C15.C16-13 

660 CALL HCHAR t IS, 10.36, 11): : GOTO 780 
670 Tl-11 :: 11=10 :: TM-169 :: IM-22 :: 
EB-I12 :: E10, El 1 . E14= 1 16 :: E13-104 : t 
E12.E15.E16-92 :: C1S-13 :: C16-3 
680 OB, 012=81 :: 010,011-137 :: 013.014= 
33 :i 015.016=11 :: O17.018-B 
690 WlOi-50 :: W11-I50 :: W13-20O i: W14= 
74 : ; GOTO 7B0 

710 Tl-lO :: I1-1B :: TM-169 ; -. IM-22 II 
E8.E10,Ell-U2 :: BB=73 :: 010,011 = 146 
:i 012-74 :: 013,014=49 :: 015,016-123 : 
: GOTO 780 

710 Tl-2 ii 11-8 :i TM-33 :: IM-214 :: E 
10.E11-100 :: 08,012-64 II 010,011 = 140 : 
: 013,014-33 :: 015,016=107 :: GOTO 7B0 
720 Tl-2 II 11-24 it TM-169 II IM-22 :: 
E10.E11-112 :: aS,Q12=5B :: GDTO 760 
730 Tl-2 :j 11-16 II TM-169 :: IM-22 :: 
08.012=63 :: 010,011-129 :: 013,014=41 : 
: 013,016=99 :: GOTO 780 

740 Tl-2 II U-2B II TM-169 :i IM-22 :: 
010,011-137 :: 015,016-107 :i GDTO 780 
750 ! 
760 ' dec. aauvint 

780 CALL MAGNIFY (3) 

790 CALL HCHARfTl, II, 136) : : CALL HCHARIT 

1,11+1,138)!: CALL HCHAR(T1*1, II, 137) I : 

CALL HCHAR ( T 1 * 1 , 11 + 1, 139) 

800 T-TM :: I-IM !! CALL SPRI TE (46, 96, 6, 



B20 CALL 5PRITE(tlO,E10,6,010,W10 t O,6«VI 
.•ll,EIl,7,Bll,Wll,0,6»VI,ttlS.E15,C13,Ol 
5,W15,0.-6»VI,-)16,E16,C16,016,W16,0,-6»V 

B30 CALL 5PRIT£<#12,E12, 15, 012, U112, 0. 6»V 



•VI) 

860 CALL SPRITE(»20, 108,2, 177, 240,0,-l,» 

21, 140, 10,177, 1) 

B70 ! 

880 '. bnucle principals 

890 ! 

900 CALL JOYSTd.X, Y> : : IF X THEN CALL S 

0UND(30,4OO, 10) 

910 I-I+2»X 

920 CALL LDCATE(»6,T, I) 

930 CALL GCHAR( (T+151/8, ( 1 + 10) /8, SUI :: 1 

F SU-35 AND Y THEN 100O 

940 IF SU-33 AND Y THEN 1000 

930 IF SU-124 THEN CALL HCHAR ( (T+15) /8, I 

I+101/B.32)! i GOSUB 1290 

960 CALL C01NC(ALL,CO) :: IF CO THEN 1090 

970 CALL KEY(1,X,5> :: IF K-IB THEN GOSUB 

1160 
980 IF SU-130 THEN I*=I-2*X 
990 GOTO 900 

1000 CALL JOYSTd.X, Y) :: IF Y THEN CALL 
SOUND (30, 200 , 6 , 430, 6, 600 , 6 > 

1010 T-T-2*Y :! CALL LOCATE ( »6, T, 1 1 : : CA 
LL GCHAR( (T*I3)/8, d*10)/8,SU) 

1020 IF SU-33 AND X THEN 910 

1030 CALL COINC(ALL,CO):i IF CO THEN 109 


1040 IF SIK>3S AND SU033 THEN T=T*2»Y 

105O GOTD 1000 

1060 ! 

1O70 ' mort 

1080 ! 

1090 CALL SPRITE(»6,BB, 16,7, I) : i FOR AD= 
O TD 30 STEP 2 :: CALL SOUPJD ( 100, 131 , AD, 

392. AD):: CALL SOUND (- 100, 163. AD, 494 . OD) 

: : NEXT AD 

1100 CALL HCHAR(1.VI£,32) 

1110 VIE-VIE-1 :: IF VIE-0 THEN 1390 
I GOTO 800 



1130 



60 CALL SGUND(50,800, 101 : : CALL SPRITE 
6,76,6,T-a, I) 

SU=139 OR SU-137 THEN 1230 
P-l TO 50»TEMP :: NEXT P 
190 CALL SPRITE(»6, 96,6,1, I) 

" "ALL CO I NCI ALL, CO) :: IF CD THEN 109 

210 RETURN 



260 






270 


1 q-ltlon score 




290 


SC-SC+60 




300 


DISPLAY AT CI, 23) f US 


NG "Moil 


310 


, idln , , 




"ISO 






34 O 


IF SC-FJ>-1000 THEN 


VIE-VIG 


FJ+ 


000 !1 CALL HCHAR (I 


VIE, BO) 


330 


RETURN 





380 

390 CALL DELSPRITE(ALL) : t CALL CLEAR !: 

COLL CHARSET 

F SOHSC THEN HSC=SC :: DISPLAY AT 
"VOUS ETES RECORDMAN" :: DISPLAY A 
: "AVEC UN SCORE EGAL A"ISC 

410 DISPLAY AT!12,5) t "REJOUEZ-VOUS f (0 - 

420 ACCEPT ATI16, 161 VALIDATE ( "ON" ) SI ZE ( 
F OY»-"D" THEN 150 ELSE END 



470 DATA 6,3, 2B, 12,3,29, IB, 3, 28 
4B0 DATA 0,0,0 

490 DATA 17,26.33,7,18,26,33,3,14 
35,2, 14,9,33,4, 15. 9, 35", 2, 



3,4, 12, 15,33,2 
5O0 DATA 3,28,33,7,6,28,33,3 
310 OATA 23,29,124,1,23,29,124,1,17,: 
24,1, 17,3.124.1,11,4.124.1, 11,6. 124,1 



1,9,20, 11,20,5,26,: 



.5, 17, 



340 ! 

550 DATA 4,3, 2£ 
3,10, 17,0,0,0 

560 DATA 3,3.33,21,4,3,33,19.3.24.33,6, 
,33,4,9,29,33. 16,9,29,33,10,20,29,33 



370 DATA 6,6,33,14,7,6,33,12,6,16,33,7, 

, 16,35,3, 19,4, 130,2,6,4, 130,2,6,22, 130, 

,8, 19, 130,2 

580 DATA 12,9,130,2,12,27,130,2 

390 DATA 3,6,124,1,3,12,124.1.3,20,124, 

,3,28, 124, 1,8,22, 124, l.B, 23, 124, 1,0,0,0 



600 



630 DATA 21,3,7,18,4,3,15,3,6,12,1 



640 DATA 6,22,6,9,22.9,12,22.7,15,19.6, 

1, 12,3, 12, 12, 8, 0,0,0 
650 DATA 20,4,33,4,21,4,33,2,17,6.33,4, 
9,6,33,2, 14,4,33,4, 15,4.33,2, 11, 7,33,4, 



;5,2 

DATA 17, 15.33.4, 18, 13,33,2.11, 13,33 

, 13,35,8 
DATA 20, 10. 130, 1,20, 11, 130, 1,20, 17. 

17,3, 130, 1. 17,9. 130, 1, 17, 14, 130, 1, 

130, 1. 14,9, ISO, 1 
DATA 14. 18, 130, 1 . 1 4 . 27, 130, 1 . 1 1 , 10. 
11. 20. 130, 1.11.21, 130, 



29,130.: 



.26. 124.1,1 



22, 124, 1.8,30. 124,1.0 



1730 '4 

1760 ■ 

1770 DATA 20,3,28,16.10,8,7.13,8,4.11,11 

,11,3, 13,7,3,8,4,3,7 

1780 DATA 11,20.6,7,24.6.16,25.5.0,0,0 

1790 DATA 19,4,33,5,20,4.35.3.13,13.33,3 

, 16, 13,33,3,6, 17,33, 10,7, 17.35,8,3,20,33 

,4,4,20.33,2 

1800 DATA 3,12,33,8.4,12.33,6,6.9.33,5,7 

,9,33,3,3,4.33,4.4,4,35,2, 10,21,33,10, 11 

,21,35,8 

1810 DATA 6.23,33,3,7,23,33.3.6,27,33,10 

,7,27,35.8, 13,29,33,3, 16,29.33,3. 19.25,3 

3,3.20,23,33,3 

1820 DATA 13,9,130.1,13,19,130,1.13.24,1 

30, 1, 13,30, 130. I. 10, 16. 130. 1. 10,19, 130, 1 

,10,26, 130,1,6, 11,1 30, 1 

1830 DATA 6,14,130,1,6,23,130,1,6,30,130 

, 1,3,6, 130, 1,3, 10, 130, 1,3,22, 130, 1 

1840 DATA 10,3,124,1,15,23,124,1,23,6,12 

4,1,23, 14, 124, 1,23, 16, 124, 1,23,22, 124, 1, 

23,30, 124, 1,0,0,0,0 

1830 ■ 

1660 '5 

1870 • 

1BS0 DATA 20,4,13,16,13,16,14,26,4,12,16 

,13, 10, 3, 16,7,3,9,4,3,28 

1B90 DATA 0.0,0.19,4.33,3,20,4,33,3,13,1 

3,33,3, 16. 13,35,3, 11,21,33,3, 12,21,33,3, 

11,27,33,3 

1900 DATA 12,27,33,3,9,17,33.3.10,17,35, 

1,6,6.33,4,7,6,33,2.3. 12,33,4,4. 12.33,2 

1910 DATA 19,3,130.1,19,19,130,1,13,12,1 

30, 1, 15,29, 130, I, 13.23, 130, 1, 13.30, 130, 1 

. 11,29,130,1 

1920 DATA 11,13,130,1,9,19,130,1,6,4,130 

,1,6, 14, 130,1 

1930 DATA 19,13,124,1,19.17,124,1,13,28, 

124, 1, 13,29, 124, 1, 11,28, 124, 1, 13,26, 124, 

1,9,3, 124,1 

1940 DATA 23,24, 124, 1,23,26, 124. 1.23, 2B, 

124. 1,23,30, 124, 1,0,0.0,0 

1930 ! 

1 960 I 6 

1980 DATA 19.3.2B. 13,27,3, 13,3, 10, U, 13, 

18,8,3,3,8,7, 10,4,9, 13 

1990 DATA 0,0,0 

2000 DATA 18,4,33,6,19,4.33.4,14,12.33,3 

,13, 12,33,3,7,4,33,8,8,4,33,6, 14,27,33,3 

, 15,27,33,3 

2010 DATA 10,29,33,3,11.29,33,3,7,13,33, 

4,8, 13,33,2,3, 10,33,3,4, 10,33,3 

2020 DATA 14,26,130,1,14.30,130,1,14,13, 

130, 1, 10, 12, 130, 1.7.3, 130, 1,7, 16, 130. 1,3 

,B, 130, 1,3,24, 130,1 

2030 DATA 23,24,124,1,23,26,124,1,23,28, 

124, 1,23.30, 124, 1,7.3, 124, 1,7,3, 124, l', 14 

,3,124, 1 

2040 DATA 14,3,124,1,14.8,124,1,7,7.124. 

1,3,20, 124, 1,3,20, 124, 1 ,0,0,0,0 

2030 ! 

2060 !7 

2070 I 

2080 DATA 20,13,16,16,26,3,8,24,7,11,20, 

6, 16, 10, 13,20,3,10 

2090 DATA 16, 3, 3, 1 1 , 6, 6, 4, 10, 4, 1 1 , 1 3, 6, B 

, 16.6,4, 17, 14,0,0,0 

2100 DATA 19,16,33,5,20.16,33,3,15,30,33 

,5, 16,30,33,3,7,27,33.9,8.27,33,7,7,24,3 



3,28,130,1 



3,4,8,24,33.2 

2110 DATA l6,21,33,6,ll,21,35,4,I3.11,33 

,3, 16, 11,33,3, 13,3,33,5. 16,3,33,3, 13, 16, 

33,3, 17, 16,33,3 

2120 DATA 10,6.33,6. 1 1.6.33,4,3, 10.33, B. 

4, 10,33,6,3, 13,33, B, 4, 13,33,6, 7. 17.33.4. 

8. 17,33,2 

2130 DATA 3,21,33,3,4,21,33,3 

2140 OATA 19,14,130,1,13,23,130.1,7.23,1 

30. 1, 10,26, 130. 1. 13.9, 130, 1. 19, 13, 130, 1 

2130 DATA 13,8,130,1.10,3,130,1.3,9,130, 

1 ,3, 14, 130, 1, 10. 12. 130, 1, 10, 19, 130, 1,7, 1 

3, 130. 1,7,22, 130. . 

2160 DATA 3, 16,130,1 

2170 DATA 23,30,124,1,23,28,124,1,23,26, 

124, 1, 19,29, 124, 1, 13,26, 124, 1, 13,24, 124, 

1, 13, 10, 124,1 

21B0 DATA 7,29,124,1,3,24.124,1.0.0,0,0 



TITRAGE 



Le programme Titrage permet de lister les tilres d'une 
cassette a I'ecran ou a I'aide d"une imprimante. 

Guy HUON 



Ce programme ne fonclionne que sur atmos du fail que les routines 

composant la fonction cload permetlont do no lire que len-lete dun 

programme. Le reste du programme n'esl pas charg6 dans lordma- 

teur, ce qui protege le programme de litrage. 

La ligne 70 initialise les poinleurs de chargement. 

Les lignes 00 & 11 appellenl les routines du leciuro de I on-lele. 

La ligno 120 donne les adressos de d6bul ot de (in du programme 

lu. 

Les lignes 140 a 180 vont chorcher leltre par lottre le litre placb A 

padir de I octet // 0293. co litro linissant par un 0. 

SI on utilise 1'imprlmanlo. un Wait est intorcalo pour eviler do SflUtet 

un litre pendant linicriplion dun autre. Pour oppeler le lilrago. il laut 

appuyor our ospaco pendant le chargement dun on-lSte. 



/VTNlOS 



3 PEM IITSRCE PES CASSETTES 

6 REI1 s~.s^.s,ss-.s^s-*s\s* 

7 PEM PW QVY HUON 

9 PEM RTHOS UtUWEHlMT 

10 IIIC? F-At'ES'4 r.Li 
13 CL8 

^0 WtlHT r-t-lm PRINT PRINTSPCt IW1 
PACE" 
■hi F-PINI PHNT-tirjCE r *-T '-"■■' "L'-'W ' 
40 CETR4 |ffi»»"F" 1HEII POKMZ4O.0 h 



RtHT*VOULtZ vou-j L'niPfinwnE O'n 

H« 1FM--0- THEII P"l 

PIHT"AP(-'JVEP BUK UMCI roUB BRW 



69 f 

rw 

« MINI Fpmi"[/EB'jr FIH MODE 

TiTPE- Miim 

(,f, IH-lIHtrCFftlM!" HEBur Fill 1 

ODE T1IPG" LPPHir UB1110 

70 DOKI liW.e DOKS •iW'.O DOKE *W ■ 
• 4F09 

m C«LLIE^6ft ' BLOL. CLAV1EP 

9fl Crll«E17[j ' KflRCHIHG 




198 CRLL-S4W; ' LECTURE EMTET 

119 CALL«93D ' PET. CLAVIER 

120 A-t/EE)-.' »0^:<> L-I'EEMIOZAB) 

130 IFPEEK»0^AE )»B THEN n»-"efl^IC"EL 
^E I1»-"C00E " 

140 l-ie?31 !••"" 

110 REPEAT 

160 T»-l»'CHPt<PEeK( I )> 

170 1-1*1 

IW i.nlTILPEEK( I )>0 OR l>(«0293»t?) 

110 F>PlNn<E>:-'H>.HE*«(E >.CHR»<9 >f.HP«' 
27)"E-rl«.CHP»'. t. - > ,, H"!tr;n(;»<z7)'D",p|MG 

2M 1FP-L IKEH LPRIMT HE/«' A '.HEX*' t ' 
,M«.r« UAITIO 

in ipptcKc«nn)«in t hen stop 

228 10TOAQ 
JOO GET A* 

MS JFR«-'"."1KEHST0P 

JOS IFAS^n^'-nTHErilPVIIItEHPtl LOi CO 
TOiOO 
310 LPRUlTA*: 
320 PRIMTAf. 
1M r,'JT03O8 • 



SOLUTION 
DEL'HIPPOREBUS: 


IB 
26 
38 
48 
SB 
68 

68, 


FOR 1-1 TO 12 

READ X 

PRINT CHR«<X>; 

NEXT I 

END 

DATA 67.79,68,69,32, 

32,66,65,82,82 ,69 




DIAMS 

Suite de la page 2 ^jr 



z*e*t< gosub 13990 

24959 cosub 13590 

24668 it ne = anp vs="h0n- and 0t»"e8c" 

then 24 tee 

24679 cosub 6160: goto 24050 

24109 rek •«•• escalier monnter • ••• 

24119 he=i:gosub 16990 

24129 GOTO 25090 

25090 ' PH=13 

25830 C0N50I_E8,24!CIS 

25949 G0SUB8999: COSUB 11590 

25956 IF P1C=0 THEN GOSUB 17000 

25955 IF HC=] THEN 25269 

25969 GOSLiB 15599 

25965 IF Ct="M- THEN COSUB 169B9JG0T0 28 

999 

25070 IF MC = AND vl="rlET' rtND 0*="COM" 

THEN GOSUB I6090IGOTO 25160 

£5890 GOSUB 6100=COTO 25060 

25108 ' COH0INAISON PRISE 

25119 «C=i:GDTO 25000 

25209 GOSUB 15506 

25219 IF C*=*N- THEN GOSUB 16606:GOTp 28 

606 

25229 COSUB 6168: GOTO 25200 

28866 ' PH-16 

28939 CONSOLES, 24!CLS 

28935 GOSUB 19960 

20048 LINE<296,t?'- 20S. 48 * . 1 : L INE(32,8>- 

•: I28,43>, 1: LIKE' 296, 166 >-'208. 1I2>. UL1N 

E(32.160>-<I28,1I2>,: 

2S058 B0X<128. l6>-<208.40>. 1:L0CATE 29.7 

,0:PRIKT-ATTENTION":lOCATE 26. ?. 0: PRINT ' 

DANGERS DE-:LOCATE 30. 1 1 . 0: PRI NT -nORT* 

28868 B0XF<184,43>-:268, 1 12 >, 4 = BOXFl I 52, 

49)-<176,63>,4:80XF' 1 76. 4Si-i 1 84, I 03 > . 4: 

B0XF(144,4B>-' 151. 103 ' ■ 4 : BQ>fF< 128.48>-l! 

43, 112»,4 

29076 80XF' 152,64)-' 159, 7! i,4JB0XF< 16?. 6 

4->-<176,71>,4 

28886 GOSUB 15506 

23699 IF V*=-ALL" AND 0»""S1E" THE* 2329 

8 

28995 IF C*='S - THEN 25098 

28100 GOSUB 6189:GOT0 23886 

28288 ' ASSIS 

28219 AS=liCOSUB16098 

23228 GOSUB 15506 

23230 IF V*="BOU- AND 0*="CEI- THEN 2830 

e 

23235 IF Cf='S' THEN 26908 

2S249 GOTO 28228 

2B36B IF MC=6 THEN PRINT*Une Pheno-ene i 

ncro*abl« yous tu -:GOTO 6688 

28328 GOSUB 1S088 

28338 GOTO 298B8 

29880 ' PH=17 

29910 CONSOLE0,24:CLS 

29815 LIKE(296,0.i-<208,48>.i:LINE(32,0>- 

< 120, 48 J, ULINE<296, 168) -(208, 112), 1 = LIN 

E(32, 168)-(12B,112>,1 

29938 IF PT=i THEN GOSUB 20919 ELSE GOSU 

8 29899 

29035 COSUB 10803 

29840 L1KEC129,112>-C142, 112>,4:LIME<I36 

,112>-<298, 112>,4:LINE-<298,48>.4:LIN£-< 

169,48), 4: LIME< 128, 1 12)r(I20,48>, 4: LIME- 

(151,49), 4 

29845 IF MC=1 AND EC=1 THEN 29126 

29846 IF HC=1 AND EC=1 AND PD=1 THEN 292 
26 

29847 IF WC=1 AND RD = 1 AND EC=1 AND PT=1 
THEN 29290 

29858 COSUB 15586 

29855 IF C«=*0- THEN 58868 

29966 IF BC=I AND VS^'ENL" AND OS^'COn" 

THEN 291 B8 

29865 IF EC=9 AND VS^'PRE" AND 0*=-PIA* 

THEN PRINT-La forte toutc puissante du d 



laaand udui tuc.'tGOTO 6808 

29079 C0SUB6iee:G0T0 29950 

29188 * C0NB1NA150N ENLEVE 

291 19 EC=U COSUB 16899 

29128 COSUB 15599 

29125 IF RD=8 AND V* = -PP.E" AND OI = -DIrt" 

THEN PPINTLa force toute puissante du d 

laaand uous tue. . . " : GOTO 6889 

29139 IF C*=*0" THEN 59868 

29148 IF EC=1 ANP V»=-REC" AND 0S="DI*- 

THEN 292B8 

29158 COSUB6188:G0T0 29128 

29288 ' DIANAND PECOUVERT 

29218 RD=i:GOSUB 16868 

29228 B0XF<I44,48>-'I76,88),8 

29239 COSUB 15588 

29235 IF RD=8 ANP V*="PRE" hND 0J="DIa-- 

THEN PRINTLa force toute puissante du d 

ia»and UOUS tue. ..": GOTO 6899 

29249 IF Ct=*0" THEN 58860 

29256 IF V*=-PRE" AND 0»=-PAQ n THEN 2927 

B 

29268 GOSU86I80:GOTO 29230 

29279 ' PAOUET PRIS 

29288 PT=l:C0SUB 16000 

29298 B0XF(144,48)-U76,88>.6 

29295 COSUB 28818 

29296 LINE<t2B,48>-.288.49>,4 
29300 GOSUB 15508 

29318 IF C«='0" THEN5O990 

29320 COSUB 6108:GOTO 29300 

38606 ' BASE NIVEAU 2 

31086 » PH=1 

31025 C0NS0LE9,24=CLS 

31936 GOSUB 868e:G0SU8 11566 

31048 COSUB 15566 

31859 IF C*="N- THEN GOSUB 16880:GDTO 32 

31860 GOSUB 6188:C0T0 31648 
32888 ' PH=2 

32838 CONS0LEe,24:CLS:GOSU88889:CO5U8 98 

OBiCOSUB 18888 

32848 COSUB 15508 

32650 IF C»="0" THEN COSUB 1688e:G0T0 33 

32968 IF C*-'S" THEN COSUB 16088:GOTrj 31 

32876 IF Ct=-E" THEN COSUB 16886:C0TO 34 

32836 GOSUB 6100=GOTO 32848 

33880 ' PH=3 

33925 C0NS0LE6,24:ELS 

33038 FOR 1=0 TO 300 STEP 48 

33049 BOXFCI,B>-(I>20.160),e 

33058 NEXT «- 

33969 LOCATE 1 , 29= PR I NT"Une belle herse 

l-ous tranche voire Petite Tete.." 

33979 PRINTVaarrant non ?>' 

33980 GOTO 6060 
34088 • PH=4 

34848 C0N30LE8,24: CLS 

34958 GOSUB9800:GOSUB 11560:GOSUB 9088:G 

OSUB 19090 

34068 COSUB 15568 

34878 IF C*=-N" THEN COSUB I6868SG0T0 35 

889 

34630 IF C*=-0' THEN COSUB 1 6080: G0T0328 

34698 IF C*="E" THEN COSUB 1 6868: C0T0368 

34108 COSUB 61B0:GOTO 34068 

35988 ' PH=5 

35836 CONSOLE0,24:CLS 

35035 COSUB 1366B 

35969 B0XF<128,48)-i.288, 79 > , 4 : BOXF<.202, 3 

8)-(288, 112),4:B0)!F( 128, 80 > -' 1 27, 1 12>, 4: 

Y=36:F0RI = 128 TO 1 34: LI NE ' I , Y)--: 1 , 88 ) , 4: 

Y=Y-l:NEXT 

35862 LINE ( 32,8)-'. 119,48), 1 : LINE (288,8)- 

<208,48>, 11 LINE<288,112)-'238. 168), I : LIN 

E(119, 112)-<32,160), 1 

35063 GOSUB 8030 

35065 IF 00=1 THEN COSUB 14606 

35066 IF OA=I AND PC=6 AND RC = 9 THEN 353 
30 

35967 IF OA=I AND PC=1 AND P,C = 99 THEN 35 



35968 IF Ofl.| am PC=1 AND PC-1 THEN 358 



35268 IF DA=9 AND v»=-OUV" HND OI='APN" 

THEN 3530B 

352IB COSUB 6190:GGTO 75980 

35300 ' ARN OUV 

35325 COSUB 16000 

35338 OA=l:COSUB 14908 

35346 C0N50LE22,24:CLS:G0SUB 15560 

35358 IF C«="S' THEN GOSUB 1 6660: GOTO340 

09 

35588 IF PC=0 AND VI="PRE" AND OI="CAP- 

THEN 35530 

35520 GOSUB 6100:GOTO 35340 

35538 ' CARTE PRISE 

35535 GOSUB 16986 

35548 PC=1 

35545 GOSUB 14988 

35558 GOSUB 15589 

35566 IF Ct = -S-THENC03UB 1 6668: COT034668 

35789 IF RC=8 AND Vt="RET" AND 0*='COD" 

THEN 35868 

35718 GOSUB 6109:GOTO 35550 

35888 ' CODE PETENU 

35818 COSUB16080 

35815 PC=l:GOSU814890 

35820 GOSUB 15598 

35838 IF C*='S' THEM C03UB1668e:COT0 348 

60 

35848 COSUB6168:G0T0 35829 

36000 ' PH=6 

36030 CONSOLES, 24iCLS 

36840 GOSUB I8899:G0SU& ^ 00: COSUB 11508 

36856 GOSUB 15500 

36868 IF C*="N- THEM COSUB 1 6809: GOTO 37 

600 

36870 IF C*="0- THEN C0SUB1 6098: GOTO 346 

88 

36688 COSUB 6168:G0T0 36859 

37988 • PH=7 

37936 CGNS0LE9,24:CLS:G0SUB 6O60:GOSUB 1 

1588 

37049 IF TC = 9 THEN BGXF< ]44, 56 i-'- 1 82, 1 62 
>.7:LINE<144, 163)-<182, 163), 

37050 LOCATE 23, 8: PP I NT" 01 2" : LOCATE 23,9 
: PR INT -345": LOCATE 23. 1 0: PRI NT "678" : LOCA 
TE 24,li:PRINT"9" 

37855 IF TC=1 THEN 37336 

37668 COSJB 15596 

37670 IF ■;i = -S" THEN C0SUB1 6990: C0T03699 

6 

37260 IF RC=1AND TC=8 AND VJ="T*P' AND 

*=-C0D* THEN 37300 

37216 COSUB 6100:GOTu 37666 

37308 ' CODE TAPER 

37318 C0StJB16899:TC = l 

37329 GOSUB 15886 

37330 GOSUB 15589 

37346 IF CJ = -N" THEN GOBI'S ;6806:GOTO 33 

080 

37359 IF C*="S" THEN C03H :^006:GOTO 369 



33615 CONSOLES, 24: CLS 

33838 GOSUB 8866:G03UB 11568 

33635 C0LGRl:L0CATE 1 6, 18: PRINTGRJ'8 J ■ CO 

LOR 4 

38637 IF IC=6 THEN BOXF ( 144, 56)-< 1 82, 182 

),7:LINEa44, 163)-(1B2, 163), 8 

3BB38 IF IC=1 THEN 38336 

39848 GOSUB 15566 

38858 IF C*=-S - THEN GOSUB 1686e:C0T0 37 

36266 IF PC=1 ANP IC=68 AND V*="INT" AND 

Ot=-CAR" THEN 36308 
38216 GOSUB 6I66:C0TO 38848 
38388 ' CARTE INTRODUISE 
3S3I8 IC=l:COSUB 168BB 
38329 GOSUB 15999 
38338 GOSUB 15598 
33348 IF C* = 'S* THEN .iOSUB 16688: GOTO 37 



36356 IF C»-"N* THEN Cfj-iobi 69081 GOTO JM 

98 

3&if,6 COSUB 6l96:',rirri 3633B 

39698 * PH=9 

39836 COSUB 8808:COSUB 11500 

39848 C0NS0LE22,24:CLS:C0SU6 15598 

39959 IF C«»-N- THEN COSUB 1 6999: G0T0228 

69 

39968 IF C*="S- THEN COSUB !6999iGOtO 3B 

9B8 

39978 GOSUB 6188:C0I0 39646 

48686 ' OBJET PRIS 

4691B IF J= I 1 AND 0T = 1 AND DT = 8 THEN DT = 

1 

4BB28 IF J«!l AND 0T=8 THEN 0T=1 

48838 IF J=14 THEN PB=1 

48646 IF J=23 THEN PP0=1 

40856 IF J=I5 THEN PBA=1 

48855 IF J=32 THEN DS=1 

4B86B RETURN 

58988 ' PH=13 

58916 C0NS0LE8,24:CLS 

5882B COSUB 9868: COSUB 9688 

50848 FOR 1 = 7 TO 1 2: L INE I 1 8, I ) -(22, I )CRS 

<2),i:MEXT:C0L0R 4 

50850 COSUB 15599 

50966 IF Ct=*E* THEN 29690 

58965 IF C*=-N- THEN PRINT'La grille «ta 

it «alhcurese»ent clec tri f iec. . . *:PR1NT* 

Vdue etes euit '-:GOTO 6666 

58878 IF PT=I AND V*="LAN- AND 0»=*PAO' 

THEN 58188 

58688 GOTO 56959 

56188 ' PAOUET LANCE 

56126 LP=l:COSUB 16899 

56138 CDNS0LE22,24:CLS:PPlNT'La force du 



tant . 



Ctrl 



U 



ill* 



56135 FOR L=l TO 2986:NEXT 

59136 FOR 1=7 TO 12: LINE ( 18, I) -<22, I )CR* 
(2), I-7:PLAY'LlD0P0tSILASID0REb-:NEXT 

59137 FOR 1=7 TO 1 2: L INE ( 18, 1 J-(22, I ) " ■ 
,6:PLAY'Lll»0D0»SILASID[:iPEb-:NEXT 

5813B COLOR 4,6 
56146 COSUB 15500 
58156 IF Ci="N* THEN 66680 
58168 IF C*='E- THEN 29089 
59179 GOTO 50148 
68888 ' CAGNE 

68636 C0NSOLE8,24:f Li:SCP£EN 2,6,6 
66846 PLAY-04LienlREL96NIL24R£D003SILAL4 
6aO»L96LA - 

68858 PLAY-O4L10MIRELS6ML24PEDOO3SILAL4 
BS0tL96LA p 

68955 ATTRB l,l:COLOP 5:L0CATE 5,2:PPINT 
•BRAVOS ! !-:ATTRB 8,8 

68668 C0LOR2:L0CATE 5. 5, 8: PRINT-VOUS AVE 
Z VAINCU -:L0CArE6,6,e:C0L0Rl:PRINT-T0US 
■:C0LOR 2: LOCATE 3,7,6:PR1NT-MES BEAUX 
* PIECES...* 

68978 LOCATE 5,19:C0L0R 3: PRINT"TOUTES fl 
ES FELICITATIONS." 

68886 PLAY-O4Li8HIPEL96nlL24RED0O3SILAL4 
8S0IL96LA* 

68898 L0CATE2,2i:C0L0R 6,2:PRINT # Une aut 
re partie(0/N) ">'7 ■ X«=INPUT*< 1 ) 
66168 IF X*=-N' THEN CLS:PRINT'AU REVOIR 

. .(froussard. ! )*=END 
68118 IF X»='0 - THENSCREEN 4,6,6:C0T0 2 

60128 GOTO 68690 
6288B ' PRESENTATION 
62818 C0NS0LE6,24:SCREEN 4,6,9:CLS 
62915 A=319:B=199:Y=8:F0R X=l TO 56 STEP 
2:B0X<X,Y)-(A,B), 1 : A=A-2: B=B-2: Y=Y*2: NE 
XT 

62628 COLOR7,0:ATTRB1, 1 : LOCATE 14,12,8:P 
RINT-DIAflANT- 

62836 COLOR 1,8:ATTRB 0,8:LOCATE 13,17,8 
:PRINT*PAR ERIC SZYKKOUIAK* 

62835 PRESENT=1.-G0SU8 26999: PRESENT = 6 

62837 PLAY*04L16MIREL96NIL24RED003SILAL4 
8S0VL96LA* 

62849 FOR 1=1 TO 588:SCREEN,, i:SCREEN,,9 

:NEXT 

62845 SCREEN 4,6,8=CLS » 

62858 RETURN • 




SUPER 
YAHTZEE 

Su'fe de la page 4 ^BF 



7673 RETURN 

seee rem i — 
seie brici. 

ORDER 5: CLS 

3«23 PRIhfT RT a,0, PRRER 2, "OOUE 

UR : '• 

8333 PRINT AT . 2B . PAPER 3. "TOT 

RL 

9343 PRINT P.T 2,29, PRPEB 2,"JEU 

ease print rt 15,0; ink 2;-mp,nch 

E . 

3853 PRINT RT 16,3; INK . 



NE . 

5373 PRINT RT 17,3, 
E OE YRMTZEES ■' 
8383 PRINT RT 15,27, 
I- Y" 



COLON 
NOHBR 
PAPER 3; "1« 



3333 FOR < =0 TO 2; PRINT HT 19+f 
,3; BRIGHT a; PRPER 4 : " 

- NEXT f 
3133 INK 1: PRINT PRP ER 5, BRIGH 

TJ.BT i ,a, "Brr™---"--"*^" , PhPER 7. 

■'•^■", BRIGHT 1, PRPER 6," ■■, P 
RPEP 5, BRIGHT 3. '■•p—i ■•"-H", ' PR 
2, PhPE 

PRPEP 5:RT 



PER 7 i^J3"- AT 3,27, 
Sllii PRINT BRIGHT 0J 



PRINT BRIGHT 



8139 FOR ,'=3 
3; RT 13+f , 1A 
*■ . PAPER 7, " 
S135 FOR '=£> 



NEXT I 



PflPEP 
'■' NE... 

INT BRIGHT 
P 5. "■ ■ 
NEVT T 
PRINT AT 4+f , 
BWIUHF 0, PRPER X. "| 
T i 
fs0 TO 5 PRINT AT 2*2* 



3150 PRINT AT 2+2, f l c LP 

PRPER 5; INK 3. a* 
6193 NEXT f 
8233 FOR f=3 TO 4 
8218 PRINT RT 4+2«f,29i BP 
; INK 3; PAPER' 4, "='■ ; f +1 
8228 NEXT f 
3238 RETU RN 

85sa rem aacaKdasas 

8S10 DRTA^nB ■ 7^™ C = 
F = 9 ' 



9113 BOPDE 

: CLS 

9128 PRINT AT 18,2 



BEEP ,35, 18 . "NCXT 
PRPER 1 BRIGHT 8 
FLASH 1, PAP 



9160 DIM i 

9178 LET i 

9183 LET i 

91.93 LET i 

9203 LET l .-. 

9210 SAUE "UARIRBLES' 1 DATA wl 

9220 GO Tr 

9330 REH 1 

9308 FOR ...... 

BEEP .05, 10: BEER . 85 , 18 : NEXT 



PRPER 



CLS 



9328 BOROER 

IGHT 

9333 PRINT AT 18,2, FLRSH 1; PAP 

ER 6; INK 3;" Demrrez Le »agnet 

OPhone " 

9340 PRINT HT 11,2; FLASH 1; PAP 



ER 3, 



6;" 



■93S0 LOAD "TOTAUX" DRTA tO 
9368 LOAD "JOUEURS" DATA j»0 
9370 LORD -'URRIABLES-' DATA M[J 
9380 LET jlsu (1) 
9390 LET ma=» 12) 
9400 LET CO. »w (31 
9410 LET fl ja» <4J 
9420 LET p«c=l: CO SUB 6170: RET 

URN 

9533 REM {SSB1EOHBB 

9585 BEEP .05, -IB: BEEP .05,0; B 

EEP .05,10 

9513 BRIGHT 1: BORDER S: PAPER 5 

: INK 0: CLS 

9515 PRINT RT 3,10, PAPER 6; "BUT 



DU JEU" 
9520 PRINT 



'TfiB 5, "UOUS davti 



9530 PRINT TAB 5,'*POur 

vous dzvrzz r«»pLir 

our chaqut case des 



953S PRINT 



•TAB 19. " (a sv 



9540 GO SUB 9950 

9550 PRINT AT 0,10. PAPER 5." 

CERS" 

9560 PRINT ' ' ' TAB 5, "Chaqye 

cer t*\ consli'.ue par l« j» 

* 5 des el de naniere opii 

ene par 2 jets du notbrc 

dts que vous vouLei, Exe 

e ; i«r cancer 5 des puis 

es e i en fm 1 de. " 

9570 PRINT ' ' TAB 19; " U fiui 

9580 GO SUB 9950 

9590 PRINT AT a, 10, PAPER 6 " 

MARQUE 1" 

9633 PRINT ' ' ' 'TRB 5;"Marqve 

i* Par ii« gauche : " 

9605 PRINT ""Pour cheque case 



marque es'. 



re 



d e i par 

our c a 

>e»ne 



9610 PRINT ' 'TRi 

9623 GO SUB 9958 
9633 PRINT RT 0,H 
MAROUE 8" 
9635 PRINT TRB ! 



9640 PRINT 
e des 5 de; 

964E PRINT 

des 5 des " 

9650 PRINT 

mis" 

9655 PRINT 

30 points" 

9660 PRINT 

40 points'' 

9665 PRINT 



"6PELA 
'CARPE ' 



"Peii te 5u i ie/PS 



de suite/GS- 



PAPER 6; "LR 
Sleyr 



9670 PRINT '"CMRNCE/ CH== 

des 5 de*" 
9680 PRINT " 'TAB 19; " (a S 

9690 GO SUB 9953 

9700 PRINT RT 0, 

MAROUE 3" 

9705 PRINT ' ' ' -TRB 5 

de claque c^lonne" 

9710 PRINT "est ■ultiPlltt par s 

on niiMtro. ExempLe ; vaieur d 

e la 3e eolonne de la 2e »iaric 

he = total de i» eoionrre*3'" 

9715 PRINT ""TAB 19; " (a Soivre 

9720 GO SUB 9950 

9725 PRINT AT 0,10, PAPER 6, "PRI 

MES 1" 

9733 PRINT '--TAB 5; "Si le tola 

i de ia parti*" 

9740 PRINT "gauche est >- 63 pot 

nts. uous touch*! unt prlae d 

e 3B pi»" 

9740 PRINT TRB 8; "Uou» devtz don 

c faire 3 des de chaqut pour 

la toucher . " 
97S0_PRINT TRB 19; " (• suivre 

9760 CO 5UB 9980 

9770 PRINT RT 3,10; PRPER 6; "PRI 

MES 2" 

9780 PRINT ' ' 'TAB 5;"Uous touche 

Z une prime de 108 pts*No de l 

a co tonne . Si . . ■' 

9785 PRINT '"DC'llt uotre 2e YA 

mtzee de la coionne" 

9793 PRINT '"alC'IH Le lJTYRHT 
ZEE de la coionne *ais DBMI e 



si bleu (Done 

un Y dans 

aarquez SB. dans la case 

zeE . - 1 

PRINT ■•'■TAB 19;"(a suivre 



9B10 PRINT ■■"TAB 8, "Lt YAHTZEE 

peut etre utilise coa*e jour 

(e'est a dir*"' '»is a n'iftport* 

quelle case de ta partic dro 

i te ) . Si . . .■■ 

961S PRINT '"La case corresponda 

nte de la partie gauche n'est 

pas "- 



9625 PRINT 



■TAB 19," ta su 



9635 CO SUB 9950 

9643 PRINT AT 0,10; PAPER 1; INK 

6: "CONSEILS" 
9850 PRINT •'TRB 8; "La partie dr 
oi te rappor te" 

9860 PRINT "Plus de points que l 
a gauch* . " - -"M*is la priee da la 

?auche est intressanta. n 
ention a ne pas trop nettre 

de ZEROS dans vos cases." 

9673 PRINT ' ' ' 'TRB 19; PAPER 6; 

INK 3; FLRSH 1, "BONNE CHANCE" 

9950 PRINT 00; PAPER 0; INK 7;"R 

ppuyei sur une louche S.U.R.ll " 

9960 PRU3E 4*4 BEEP .08.40: CLS 

9970 RETURN 

9996 STOP _ 

9999 5RUE "YAHTZEE" LINE 1 • 



"YAHTZtE/ Y» 



CARRE DIABOLIQUE 



Suite de la page t 



6180 PRINT"n*aLE BUT DE CE JEU ESTIMWDE REC0H3TITUER IMMMtMM CRPRE " 
PRINT a )MM 4X4 RU NIVEAU I " ■ PRINT"***! 5x5 AU NIVERU 2" 
ODSUB 6988'PRINT M nWiDN JOUE flVEC LESMMMMI TOUCHES 1 fl 9" 
PRINTJMKSUlvRNT LE HI VEHU J " PRINT"«WCUI CORESPONDENT RUXn>»l COSES SIVfl 



6110 



PRINT"Xn>INBetnilll»129lllllk134«nillliH9"; 

PRINT"rnr»*MIM9»«nilHM123exii99i»456aaii»H~ l -8'?aaiiii»aeae" 

GOSUB6906-PRIHT I, ^OEN JOUHHT UNE DE CESIMPfflKflSES .LES CASES" 

PRINT"OT flDJRCENTES PERMUTENT KO DRNS LE SENS DE5HOMFI0UILLES D'UNE WON 



6129 
6136 
NTES 
6149 
6150 
6169 
6170 
TRE" 
6186 



6900 
6920 
6930 
6999 
7060 
7010 
7020 
7050 
7290 
7259 



7269 RETURN 
7390 PRINT"! 
7490 PRINT"I 

7450 PRI; 

If/EPTi" 

7469 RETURN 

7700 FORT-4632T04637 READBPOKET. 

8*00 WTA28. 32. 49,57,36, 52 



EN MEME TEMPS" 



PRWIPOUR LE SENS CONTRRIRE APFUYER SUP 'KHIFTB' 

GOSUB 6909:GOTO 10 

ENS 

pr lHi'-mmnmomommomx- Ctrl' pour continuer" 

IFPEEK (633 ) 04THEN6929 

RETURN 

LC-3 

VV-4298 - CV-38999 

FORT-0TOCLC*2)-1 

P0KEVV*T,lZ3P0KEVV*21*T»22.i22 

POKECV+T,0:POKECV»21 + T*22,9 NEXT RETURN 

FORT"0TO22 : POKE4036*T . : P0KE4896*T*22, : P0KE4993+T*22. FOKE4380tT . 

P0KE37888*T, : P0KE37888*T«22, ' P0KE37887*T»22. : P0KE38372*T, NEXT : P0KE4602 



noiPBuiiins.'rjuGEMUMiinJSijNEKimMca.u.Euiaiaiii 



i P0KE33792+T. NEXT RETURN 



SPACELAB 



* 



■)T* 



Pilotes eme>ites, a vos commandes: vous allez devoir, 
a un ou deux joueurs, eviter tous les obstacles se pre- 
sentant sur votre route tout en recuperant le fuel indis- 
pensable a la poursuite de votre periple. Profitez du 
scrolling lateral en langage machine, il est epoustou- 
flant. 



Herve HUE 



ECRITURE EN UXDEO NORHRLE DES 
CARACTERE5 EN UIOEO XNUER5EE : 


LIGNE: CHRACTERES: 








. ."COPYRIGHT :HERUE HUE' 1 






. ."PERDU" 


CiJ 














. ."PRESENTATION" 










ai6« 


YEZ.." 
, . "NBRE DE JOUEURS" 






. ."RPPUYEZ" 
















TOT . " 


9833. 








TAN 


77*3 , G0SU6 H> OR i LET OK 


PRINT If. NOT ,™.»LN PRINT HY NOT 


rV 










, "M'-i.P:;:- JLN PRINT IVfcNOT 2 












4 












a 






















LET Fl=" " 






15 


LET [>»■"■" 






s:-.-3- 




17 


LET K=0 






19 


LET ««="«■■ 


20 














IF T = Z THEN PRINT "UOULEZ-'J 








25 

29 


IF Z = HIND Y«i>"0" THEN GOT 


IF Z»0 THEN GOSUB 2000 


29 


if z-n then m«ub aaaa 



Mode d'emploi: 

Entrez une ligne de rem arnsi: 

1 REM ' ' * 160 fots " •" 

puis rentrez le programmede chargement suivant: 

Executez alors le programme de chargemenl et rentrez la liste des 

codes machine. Puis rentrez le programme en basic. 

Lors de I'utilisation du jeu. pour entrer votre nom deplacer le curseur 

avec les Heches et enregistrez la bonne lettre avec 0. Lorsque vous 

avez entre votre nom tapez sur F. 

Une partie se deroule en trois manches, avec cumul des scores. 



7a RAND U5P 16605 
30 IF RNO<RND THEN I 
K 164.17,29,0* 
90 LET Y=Y+lINKEY$= 



(INKEY 



. rCODE "■ 
:ODE D« OR 
"I" THEN 



95 IF PEEK U+33*Y + 
" OR PEEK !J+33tY*16) . 

PEEK (Jt33*Y»16> = COOE 
GOTO 1000 

96 IF PEEK IJ*33tY+16) = CQOE OS 
THEN LET K = K + 1(30 

100 PRINT AT Y , 15, C* 

101 LET K=K+1 

lie LET A = INT iRND* iY-21 ) +1 

IIS LET I=RNO+10 

120 PRINT AT A,31;DS, <D» AND (I 
(3 OR I>81l;fiT A-1.31, IDS AND CI 
>5 AND Ic6 AND R>11 ) 

140 RAND U5R 16514 

150 RflNO USR 16542 

160 GOTO 50 
I^CC Fop C-0 TO 30 



















±253 


print rt 15,10; "HaaaflL, 






: 3 Z E 


FOR 5=s TO 10 .___. 






NEXT s 










1300 














GOTO 1 






2 Z Z 1 


REM idTiaaiJ»y»»MiB 




^?JR N-STTO 21 








NEXT N 
















NEXT N 






21.Z- 
2110 

.-: :?.z 


CLS 

PRINT AT 1,0, "'JOU5 '.€:;E: j 



16417=10 THEN POKE 



ENTRER DANS L " ; fit 3 , 0; "ATM03PHE 
RE DE MAR5.UOU5 BLLEI'mT 5,0 ;"w 

.:■: r:E f!:iriTflCNEuSe";flT 
7,0;"ALOP5 QUE SE PREPARE UN ORh 
OE. jRT 3.0. "REUSSXREZ-'.'O-Ji fi PP 

CNDRE les ";RT ii,o, -eiDONS diss 

-■i-ilnES" . mT 12, C "5UP LES FlRNCS 
CE-i HONTPC-^S. ' , >iT :.S . . " EUI7EZ 
LE; ti'jHL-ei C-UI '.■0'J5", AT 17,0, "C-E 
- r;,r.-,;^r;.:E;;r ..: ;. , . - i ;-■;-. L- 
IER CONTACT. RPPUYEZ.." 
2130 IF INKEY*""" THEN GOTO 2130 
2140 CLS 




zx» 1 



3350 PRINT RT 0,0,-JOUEUR NO l*i 
AT 4 ,0, P»; RT 6,9, 51 

3351 IF INKEYis"'' THEN GOTO 3351 
3355 IF nB=1 THEN GOTO 3430 
3360 PRINT AT 0. 12, 'JOUEUR P" " 



2150 


PRINT AT 1.5. "REPRE5ENTATI0 


2160'pniNT AT 5,0," > m UOUS"; 
AT 7,0;" ^ BIDONS'-.hT 9,0," 




IF tNKEVS*"" ThEn GOTO 2170 
























LET 51=0 
















IF NBOl AND NB(>2 THEri GOT 










LET Jl = l 




LET P$ = "" 






3050 










U K L M N P";AT 5,0; "0 R 






















3100 


IF INKEYl = "8'' THEN LET Y=Y + 


3110 

2 

3120 

2 
3200 


IF INKEY»="6" THEN LET X=X* 


IF INKEYJ="7" THEN LET XeX- 


IF INKEY$»"5" THEN LET Y =Y - 




IF Y<0 THEN LET Y«B 




IF Y>31 THEN LET Y=31 






LET 


Pj=PS*CHRS (REEK (PEEK 1639 



,*PEEK 163 , 37+3J* IX-l) ♦. ._. 

3240 IF Jl = 2 AND |NKEY1«"B" THEN 
LET U*=U»+CHR* (PEEK iPEEK 1639 
^•2Zi - = ££)-. 1-: 3^7-331 IX- 1) *Ytll ) 
3242 PRINT AT 10 , ; " J 1" ; PI, AT 12 
,0; "JS";uj 

3245 IF INK£Y* = "f ; " THEN GOTO 325 

3250 GOTO 3093 

3251 IF Ol=2 THEN GOTO 3260 

3252 IF N6=l THEN GOTO 3280 

3253 IF INKEYJ*"" THEN GOTO 3253 
3260 LET Jl=2 

3270 GOTO 3050 

32B0 CLS 

3280 PRINT AT 10,0; "JOUEUR NO X: 

";P$ 
3291 IP INKEY«="" THEN GOTO 3291 
3295 IF NB=1 THEN GOTO 3305 

3300 PRINT AT 12 , ; 'JOUEUR NO 2: 

3301 IF INKEY*="" THEN GOTO 3301 
330S IF NB=1 THEN LET S1=51*K 
3310 IF NB"1 THEN GOTO 33*0 
3320 IF T=2 THEN LET S2*S2+K 
3330 IF T*l THEN LET S1-51+K 
3340 CLS 



AT 



5,Tl, '■■'■; AT 6,Tl, I 

5 1=0 TO 200 



3360 FOR _ 

3390 NEXT . 

340S IF T(>2 THEN GOTO 3440 

34-10 IF T*2 THEN LET T»l 

3*20 LET TOsTOtl 

3430 IF T0=4 THEN GOTO 4000 

3435 GOTO 3444 

3*40 IF T=l THEN LET T»2 

34*3 CL5 

3444 IF Z=0 THEN LET Z«l 

3445 CLS 

3446 PRINT fiT 11.10, "■"■■■■■■«■ 
-"^•";AT 16.15, "^A," 

3447 PAINT AT 10 ,10, "JOUEUR NO" 
,TjAT 15.15,"PRET",AT 20,10. "fiBS 

3*1^ IF INKEYf="" THEN GOTO 3*46 

3449 CLS 

3450 GOTO 12 
4000 CLS 



4100 LET I 

4110 LET r=F»_ 

4120 IF 51>UAL MllF) 

1*0 

4130 GOTO 4110 

4140 FOR B«ie 

4150 LET N» iG+ 

4160 LET HI (Gt 

4170 NEXT G 

4130 LET M«iF] 

4260 LET Nf CF) 

4300 FOR Fal T 

4320 PRINT AT 

B 22,H«IF) 

4330 NEXT F 

43*0 PAUSE 4E4 

4341 IF NB=1 THEN GOTO 440' 

4350 IF U»=P* THEN GOTO 44' 

4360 LET P|*U« 

4370 LET 51=52 

4360 GOTO 4100 

4400 CLS 

4410 GOTO 1300 

5000 r * 



rHEN GOTO 4 



F STEP 

N*(G> 

HKG) 



F*2i ♦i,s;n»<fj ,TA 




9000 CL5 
9031 REM 
9010 SRUE 
9020 AON 



PROGAAHME DE CMARGEMENT 

9900 FOR I-1651* TO 1665* 

9910 INPUT M 

9920 PRINT m; " -; 

9930 POKE I,M 

9940 NEXT I 

42 43 ** 45 45 47 *B 49 

S17 213 219 220 221 222 223 22* 

123*5678 

16 17 16 19 20 21 22 23 

205 206 207 208 209 210 211 212 

1* 15 16 17 IS 19 20 21 

6 7 8 9 13 11 12 13 

0123*667 

6 9 10 11 12 13 14. 16 

205 206 227 208 209 210 211 212 

14 15 16 17 IB 19 20 21 

201 202 203 20* 203 206 207 208 

40 41 42 43 4* 45 45 4.7 

80 51 52 33 S4 66 86 37 

71 72 73 74 73 76 77 76 

205 206 207 206 209 210 811 212 

56 59 60 61 62 63 6* 65 

6 9 10 11 12 13 1* 16 • 



GESTION DE COMPTE 
INDIVIDUEL 



Rangez crayon, papier et calculette, votre MZ se met a 
I'heure de la gestion familiale grace a ce logiciel. 

Frederic DUCHER 

Ce programme est un logiciel de Gestion de compte individuel. Pour 

exploitation, apres enregislrement de la cassette, interroger I'ordina- 

teur en faisant "RUN". Le menu s'afliche. Apres son choix fait, impri- 

mer le code (1 a 5) suivi de "CR". 

Code 1: sert a enregistrer un lichier se trouvanl sur la cassette. 

Code 2: sert a atimenter le fichier. 

Code 3: sen a la lecture du fichier. 

Code 4: sert a la sauvegarde du fichier sur cassette ou dtsquette. 



Code 5: sert a vider toutes les memoires basic. 

Pour le code 1, pas de probieme de manipulation. 

Pour le code 2, chaque compartiment s'affiche. Apres i'avoir rensei- 

gne, il faut appuyer sur CR et le compartiment s'affiche. Apres le 

dernier compartiment (N° de cheque) si Ton veut une autre serie, il 

faut appuyer sur n'importe quelle touche. sauf "0". qui ramene au 

menu. 

Pour le code 3. la premiere ligne s'affiche. Pour avoir les suivantes, 

il faut appuyer sur n'importe quelle touche sauf "Q". 

Les deux autres codes, leur manipulation s'affiche sur le monitor. 

II est a conseiller d'utiliser un autre support magnetique que celui 

sur lequel est grave le programme. En cas d'utilisation de cassettes 

longue-duree (superieures a 2 X 40) comme celles de I'auteur, il est 

possible de changer la valeur de la variable "N" a la ligne 610. 



MZ80 




i PEfl 

2 REn**DUCHER r rtfM r;c»»l 

3 Rtrt — 

4 rep 

se REn**conPTE: personnel** 

20 REM 

25 REH 

30 REMiiHENU** 

49 REn 

50 PRIM-TO' 1 

63 CURSORIB, I iPRlNrTIEMU" 

78 PRINT :PRJNr ;PRINI 

ee p^inT' -J- flPPELLE OU FICHIER EN HErlO 

IRE" 

39 PRINT: PRINT 1 -2- RflJOUE f<U FICHIER" 

IBB PRINT: PRINT -3- LECTURE OU FICMlER 

Tie PRINT :PR1NT" -1- SflUUEOflROe OU FICHI 
ER" 

178 PRIM^ PRINT' -5- FIN" 

130 PRINT: PRJNT :PRIMT:PRIMT' 1 F«ITES UOTR 
E CKOIX Ct^2^3/W 

Ml GET P. '0 WOO T0 1 80,580, 360, 760, 168 

150 IF[P<l]T(ft>3)TMEN14B 

155 END 

159 RErt*i*FJN»*» 

168 PRlHT'D'iEMD 

1?8 REri - - 

188 Rtn**»WPELLE DE L RNCIEN FICHIERJJ 
198 REn 



288 PRINT-P- 

218 PRINT" Rt*bob',n*r la c«»«u« »i"~ 

la bonn* fact .1 '; CHR*(I27);" PLAT 

220 RET1 

230 ROPEN 

248 PRINT" ENREGISTREHENT EN CCMJRS. " 

245 H-189 

258' INPUT /TN 

26B DlrtN«(NJ,KCN],ECr<) 

278 DIMT(N),RCN),SCN3 

288 FORX-ITOh 

298 INPUl^TN«tX),KCXl,eCXJ 

308 INPUT/TTCX) 

305 lNPUT^rRCX),St>) 

318 NEXT* 

315 ONERRORGOTO10 

328 CLOSE 

338 PRINT-OK 1 C'»ti »ol t .R«Mbob'lnfr lo 

335 FDRI-0T0209B1NEXTI 

340 30T0I8 

350 REn 

300 REn*l»LECTURe DU FICHIER **« 
370 REH 

388 PR1NT-B" 

390 CURSORIB, I 'PRINT'liCOnPTES**' 1 

480 PPINT:PRINT:PRINI 

118 PRlNTTflBC 1 ) ;"DflT£" I 

413 PRINTTrtflt?) j-LlBELLES'i 



I PRlNTTfl9(16J;"CRE0IT"i 

! PRINTTftB(23);-TJEBIT ,1 i 

! PR1NTTP8C38) ;"'S0LOE" 

I PRlNTTPBC?Ji"N'CHEOUE H 

I FORX-ITON 

! ONERRQRGOTO520 

I PRINTTPBC8 J ;KCX) : 

i pRiNTTnec7)iN*r>') j 

1 PRINTT|*BC1SJ;ECXJ; 
3 PRINTTfl9C23);RCX)i 
3 PRINTTf»BC30);SCX) 
3 PRlNTTnflf.6)iTtX) 
a GETP*-1Ffl»»""TNeN52B 
a IFP*-' 1 0' 1 TH£NO0T0ie 



I REniiChONGEnCNT DU FICHIER *il*»» 
I REM - 

I PHJNTB" 



I FORX-1T0N 
I PRINT :f'RIN' 
1 PRINT :PRIN' 
:tX) iG0T0?10 
I INPU1KCX) 



5 PRINT^RlNTi-LlBELLE = " = INPUTN41X i 

} PRINT ^RINT-CRCOIT ■ " > INPUTE(X) 

I PRINT :PRINT0F_8IT : " ' INPIJTR(X) 

) SCX)-SCX-mEtX)-R(X) 

) PRlNtiPRlNT^SOLOE :*■ ipRINTStX) 

> PRINTiPRINT'N' DUCHEOUE :":INPUTTIX 

I rJET0t:Iffl«"""THEN?3B 

I IFfl*-"0"THENG0t018 

I NEXTX:GOTOI0 



708 REn»*SflUUEGmDC Oil FICHIER 



■ it 



PRINT 


B" 




PRINT 


R.B.bob;r>»r la ca« « 


CHR*l 


27) ;■' RECORD-PLOT'' 


UOPEN 


COflPTES" 




PRINT 


SHUULWROC 


EN COURS 


PRINT 


TN 




FORX" 


ION 




FRlNT'TN«(X),KtX 


,E(X) 


PRINT 


TTtX) 




PRINVTR(X),SCX) 




NCXTX 






CLOSE 






PRINT 


OK t C-..\ 


fall. R<« 


FORl'OIOJBOO^NLX 




GO1O10 





LE LOGICIEL 
DE LA SEMAINE 



/MISTER ROBOT AND HIS FACTORY 
de BEYOND SOFTWARE 
pour CBM64./IPPLE 



Suivant le vieux pr incipe chre- 
nen "croissez et multiple". 
les nains se sonl mis a proti- 
ferer dangereuseument el a 
repandre leur bave partout 
dans la saite de la redaction. 
Cen etail trop. Nous avons 
definitivement mis fin a leurs 
smistres agissemenls. en sa- 
tellisant leur cafetiere aux 
alenlours de Jupiter. Et pour 
I'heure. c'est avec plaisir que 
vous pourrez lire des explica- 
tions sensees sur Mister robot 
and his factory. 

Voici a nouveau un logiciel de 
la qualite et du niveau de 
Lode Runner. Les multiples 
dangers que doit surmonter 
Mister Robot dans son usine 
de robots sont pour le moins 
diaboliques: le plancher des 
vaches sera bien Mou dans 
voire souvenir apres avoir 
vainemen! lente de franchir le 
premier tableau, et des le se- 
cond il sera totalement oublie. 
Tapis roulanis et trempoimes 
se succedent a un rythme ef- 
frene, d'autant que vous ne 
pouvez pas vous arreter; les 
aliens (tout feu tout flammes) 
sont a vos trousses. Leur 
contact est bien evidemment 
mortei: mais ce n'est pas le 
seul piege que vous devrez 
contourner. Si d'aventure 
vous vous risquez sur la 
chame de fabrication des 
bombes. sachez que le moin- 
dre contact declenche leur 
rnise a feu: le compte a re- 
bours commence et des lors il 
ne vous reste plus que quel- 
ques secondes pour vous en- 
trainer a jouer la fille de I'air. 
Et 51 pour echapper a 1'explo- 
sion fatale vous choisissez de 
fuir par un trou magnetique. 
prenez garde car il ne vous 
transporter pas vraiment a 



I'endroit que vous souhaitiez 
atteindre. N'oubliez jamais 
que votre raisonnement se 
doit d'etre subtil si vous vou- 
lez achever un tableau, car 
bien souvent, il n'existe qu'un 
unique chemin pour y parve- 
nir. A moins que vous ne choi- 
sissiez une solution de faci- 
lity: creer votre propre 
tableau, a l aide de votre joys- 
tick, et ce, avec une mise en 
oeuvre des plus simples. 
Alors en attendant Lode Run- 
ner Championship, pourquoi 
ne pas vous offrir un grand 
moment de plaisir et de de- 
couverte grace a Mister 
Robot? 

Honore de Tenbienkemal 

et Eudes de Coullomb La- 

greuze 




LES AVENTURES SANS TITRE 
DE MICHE ET MICHA 

SUMMERGAMES 

(ou les SEC sont de retour (* )) 



PETITES ANNONCES GRATUITES 



-'T'es pre! pour I'hyperespace. 
Micha? 

-Je suis pret, Miche. 
•Alors. let's go." 

Un eclair aveuglant, une pous- 
see pharamineuse, et nos deux 
nains (car ils onl largue Fa- 
breesly sur saturne) arrivent en 
vue de la Terre. de la France, 
de Paris, des locaux d'Hebdogi- 
ciel, de leur Cafetiere Preferee. 
Quel zoom! 

■"Les pauvres! Ils croient s'etre 
debarrasses definitivement de 
nous! 

-Ils revent! Ils ne savent pas que 
notre cafetiere est equipee de 
faisceaux laser a coercion va- 
riable. 

-Avec ca. on est vraiment imbat- 
tables. 
-Oui. 

-Voila, voila. 
-Bon, voila." 

La conversation tarit. Les deux 
nains toussotent, embarrasses. 
-"On parle de quoi, la? 
-Ben. de Summergames, non? 
-Ah ouais. j'avais oublie. Ca 
veul dire quoi, Summergames? 
-Ca veut dire "jeux d ete". 
-Jeux d ete? Comme le loto, par 
exemple? 

-C'est un peu ca. sauf que c'est 
moins con, et que ca rapporte 
beaucoup plus. 

-Et je te dis pas quand y a le 
super-bonus! 

-Ah ouais. le super-bonus! C'est 
bonnard. ca! 
-Ouais. bonnard. 
-Bon." 

Ca languit. Faudrait voir a etre 
plus nerveux, les deux nains. 
-"Eh, oh! Doucemen! le matin, 
pas trop vile le soir, hein! 
-Ouais. c'est vrai! 
-Ben sommaires guemzes c'est 
le (coup de) pied (dans I'eau). 
Hein. Miche? 
•Ouais. ga jelte un max. On sen! 



bien qu'on se la donne a fond. 
Bon plan, 

-Toujours est-il que j'ai toujours 
un de plus que ioi dans toutes 
les disciplines, surtout pour 
boire la tasse (et de la biere). 

-Quessqu' y 1'arrive. Micha, fas 
bouffe un dico? C'est quoi, ca. 
"toujours est-il"? C'est une tour- 
nure de phrase pour nains? 

-Un genre de. ouais. Mais 
qu'est-ce que tu glandes a te 
barrer dans le mauvais sens, 
t'es pas pret d'accrocher le 
maillot jaune dans la cafetiere 
si tu t'y prends comme le man- 
Che que tu es. Allez Miche, 
ALLEZ Miche... ALLEZ MICHE! 

-Merci. Micha. MERCI MICHA. 
MERCI! 

-Voave...Taurais presque reussi 
un quadruple soper. dommage 
t'elais ni dans la piscine, ni en 
train de qymnastiquer (d'ailleurs 
c'est ton tour pour le parquet). 

-C'est con, j'essayais de (aire un 
saut perilleux sur la piste du 4 
fois cent metres! Je ne suis 
pourtant pas beige! 

-A bon nain. bon gnome.. .Mais 
tu me feras pas avaler que tu 
confonds une bonne medaille 
de bronze et un bon medaillon 
de bronzes. 

-En brochette, bien sur. 

Et les deux nains se nanifient 

encore plus el finissent par dis- 

paraitre. 

Et une voix surgit du neant: 

•"Arrete. c'est ton lour de ne pas 
faire les essais de logis au ciel. 
mais par contre, c'esl toi qui t'y 
colle pour les rustines au turbo 
laser de notre bien aimee cafe- 
tiere invisible. 

-Oh non. deja la semaine der- 
niere, c'etait..." Et puis plus 
rien. 

Miche et Micha 
(n)sportifs en chambre 



VENDS PC 1500 - 8K RAM ICE 150) 

- .mptimanls (CE 1501 - docs ■ * 
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grammes envrronj Le lout pour 3000 F 
A PECHMATOU i place St Jui«n 
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a debame Phii.pp© GAUDET Tei 646 
S3 30 (apres I9H) 
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MODULES EDUCATION 

MIOr' Uwntu I 147.00 I C I E*I/fi?*lng 
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Addition Canon 147.00 D Multlplicxiion I 
DWwxvJhnoWon [ \17S0 \ D | 



17^0 O Tiinv 
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PDOGRAMMES TEXAS EDUCATION : 

mood ju(IW/4|IJ 

IniiM .iu tl 99/4 [2\ 

It; iKlnifjir, <te\ p/rxyimrun Oejeut |t) 

In urcrmlqun rin fnuynnvr-, or Jeux |?| 

Compiemmu et munlpln 

Mob cmn« I et 2 

HEBDOGIOELS SOFTAU/ARE 

riW I Rr>.ilmpleK7-|2jeu« 

TIN^2Bailc«er«u l?jeux 
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Texas Instruments 

Micro-ordlnateur Tl 99/4 A Pal 
Ofsponlble decembre : 1.160.00 D 
ACCESSOIREST199/4 
HMLB0U iECAM Fr,*rx:e 
Obte iWiion msgneto-caisellrs 
Pane mdrietrnjeux 

M3gnelo-caiwn«(ompa</oie r I Larsay 
avet compteur + ciD»e magneto comprrs 
Imprimame SeikoMOa GP SCA 
Imprrnunie SdtOSCtH GP 500 
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.t PABAU£L£ IMPHIMAVIE I 
BHAfJCHEIHEIvr IMUEDlAr EXTEIMJION 1? 
' tOUIE COMMANDS HONOKIE AU flUS TA«D 01 



LOT N" t INDISPENSABLE 

Le Module BASIC ETENDU manuel en rrarxais 

K7 BASIC PAR SOI-MEME 

YJ AJDE A LA PSOGRAMMAIIOV 

K7 TECHNIQUE DES PROGRAMMES DE JEUX N» I 

L ensemble 850,00 F. 



LOT N" 2 EXTENSION COMPLETE 

Le Module BASIC ETENDU manuel en francai* 
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K7 AJDE A LA PROGRAMMATION 

EXTENSION MEMOIRE 32 K EXT 

K7 TECHNIQUE DES PROGRAMMES DE JEUX N" I 

Lensemble 2.24O.0C 



LOT N" 3 ETUDE DU LOGO 

Le Module BASIC ETENDU manuel en ftancsb 

EXTENSION MEMOIRE 32 K EXT 

Tl LOGO N" 2 

Lensemble 2.79: 



LOT N" 4 TRAfTEMENT DE TEXTE 

Lr? Module BASIC ErENDU msnuei en (rancars 

EXTENSION MEMOIRE 32 K EXT. 

INTERFACE PARALIf LE pour fl 99 

IMPRIMANTE EPSON RX SO FROION et TRACTION 

L ensemble 6.560, 00 F. 
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(irjer-.r^riMr-MUCHMAN 
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I MODULE Tl CALC 

I MODULE CONSEIL FINANCIER 
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I MODULE DE FICHIER 

I INTERFACE PARALLE1E fl OT/4 
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Solar system 
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• 1 micro o 
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